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SIX SIMPLE TIPS FOR PROGRAMMERS 
7 

AMAZIN' 

That’s what you’ll say if you get through this maze. 

For Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

25 

poison ivy 

Can you get out of a “prickly” situation before the Poison Ivy gets you? 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

42 

WORD SCRAMBLE 

A mind-teasing game of mixed-up letters. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

56 

SECRET CODES 

Encode and decode your private correspondence. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 

69 

GRAPHIC FANTASY 

Hours of computer-generated graphics. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

79 

WATER BALLOONS 

Cool off with this wet ’n wild aiming game. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

95 

MONSTER IN THE MARSH 
Choose the right path out of the marsh, or else... 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

113 

TEAM BATTING AVERAGE 

Whether your average is lousy or great, this program lets you know! 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

123 

THE DRAWING PROGRAM 
Become a computer Vincent Van Gogh. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, Timex, TRS-80 Color Computer and Models III & 4, and VIC-20. 

135 

MUSIC RECORDER 

Write and record songs on your computer. 

For ADAM, Apple, Atari, Commodore 64, IBM PC, TI-99/4A, TRS-80 Color Computer and Models III & 4, and VIC-20. 


Because of the sound and graphics requirements of some of the programs and the limitations of some computers, not all programs are 

translated for all machines. 







SIMPLE TIPS 
FOR PROGRAMMERS 

Even the most experienced prosrammers make the most basic errors every once in 
awhile. To help you avoid frustrating mistakes, here are some simple programming 

reminders. 

1 . 

When you type program lines into your computer, be sure to copy them exactly as 
written. Numbers, punctuation marks, and spaces are important. 

2 . 

Remember to keep the alpha lock (or caps key) down while you’re typing in the 

program. 

3 . 

Press RETURN or ENTER after every completed program line. 

4 . 

Before you run the program, save it. That way you avoid crashing the program if 

you made a typing error. 

5 . 

Run the program when you finish typing it in by typing RUN and pressing the RETURN 
or ENTER key. If the computer gives you an error message, don’t panic. Mistakes can 
be fixed. List the program by typing the word LIST and pressing the RETURN or ENTER 
key and double-check each line. If there is data, check to make sure you haven’t 
typed any extra commas. Make sure you’ve typed zeros and not the letter “O.” A 
foolproof way to correct a mistake is to type in the entire line again (including its line 
number). When you list the program again, you’ll find the new line in place of the old. 

6 . 

If you need more help, read the programming guide you received with your computer. 

It should cover most of your questions. 


PUBLISHED BY SCHOLASTIC INC. 

COPYRIGHT © 1984 BY SCHOLASTIC INC. 

ALL RIGHTS RESERVED 
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BONUS PROGRAM #1 

AMAZIN’ 

AMAZIN' is what you'll say, the first, time you. make it 
through this twistin' maze. The clock tells you your 
score time, so you can compare your score with the best 
scare. Watch out for walls! If you collide with a. wall, 
you lose. On most, computers you have the choice of 
joystick control, or keyboard control. Select which one 
you. want at the beg inning of the game. If you use the 
keyboard, write the direction keys down on a piece of 
paper and practice using them. Pushing direction keys 
will get you where you want to go, pronto! 


Apple II and Apple lie 


1 1 

REM 

*** AMAZIN 

APPLE *** 


10 

GOTO 

3000 



99 

REM 

*** JOYSTICK ROUTINE *** 


100 

IF 

PDl. ( 1 ) < 

64 THEN YI = - 

1: RETURN 

1 10 

IF 

PDL. ( 1 ) > 

192 THEN YI = 1: 

RETURN 

120 

IF 

PDL (0) < 

64 THEN XI ~ - 

1: RETURN 

130 

IF 

PDL (0) > 

192 THEN XI = Is 

RETURN 

160 

XI = 

0 : YI - 0 : 

RETURN 



199 REM -*•*-* READ KEYBOARD ROUTINE *** 

200 XI = 0: YI = Os LI == 0 

210 KE = PEEK ( •- 16384): POKE - 16368,0 
220 IF KE < 128 THEN 250 

230 IF CHRt- (KE 128) ==> KTT (LI) THEN YI = YT (LI): XI = XT (LI) : 

240 L.I = L.I + Is IF LI < 4 THEN 220 
250 RETURN 

499 REM *■** MAIN LG0P-DRASW PLAYER CHARACTER ##* 

500 XI - 0;YI ~ 0;LI = 0 
5.10 CO « 3: R0 = 0:L = 0 
520 TI ~ 0 

530 IF YI = 0 AND XI = 0 THEN 550 

540 COL OR = 0: PLOT CO - XI , R0 -- YI 

550 COLOR- 14; PLOT CO,RO 

560 IF L = 1 THEN 2000 

570 ON J B0SUB 100,200 

580 R0 = R0 + YI s CO = CO + X. I 


590 

IF CO > 

39 THEN 1000 



600 

IF RO < 

0 THEN RO = 0 



620 

IF SCR'N ( CO, RO) = 15 

THEN L = 

1 

630 

TI = T I 

+ 1 



640 

GOTO 53 

0 



999 

REM *** SUCCESSFULLY 

COMPLETE 

MAZE 

1000 

TEXT : 

HOME :WH = 7 I 



1010 

FOR T 

- l in 100 



1020 

PR I NT 

"YOU MADE IT! 

M - 

q 


1040 

NEXT T 




1 060 

IF WH 

< LS THEN LS » 

WH 


.1.070 

HOME 




1 080 

PR I NT 

TAB < ID" YOUR 

SCORE IS: 

" WH 


RETURN 
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1090 

PRINT 


1 100 

PRINT TAB( 10)"THE LOW SCORE IS: "LS 


1110 

PRINT 


1 120 

GOTO 2030 


1999 

REM *** RUN INTO WALL *** 


2000 

TEXT : HOME 


2010 

PRINT TAB( 6)"YOU RAN INTO A WALL!" 


2020 

PR I NT 


2030 

PRINT TAB( 6)"PRESS ANY KEY TO PLAY AGAIN" 


2040 

IF PEEK ( - 16368) > 127 THEN 2040 


2050 

GET DUM$ 


2060 

RESTORE 


2070 

GOTO 3120 


2999 

REM *** INTRODUCTION *** 


3000 

HOME 

• 

3010 

PRINT " ARE YOU USING A JOYSTICK (Y/N)?“ 


3030 

IF J* = "Y" THEN J = 1: GOTO 3120 


3040 

IF < > "Y" THEN J = 2 


3050 

HOME 


3060 

PRINT "THE DIRECTION KEYS ARE:" 


3070 

PRINT 


3080 

PRINT "I--UP M=DOWN J =L.EFT L--RIGHT" 


3090 

PRINT 


3100 

PRINT "PLEASE PRESS ANY KEY TO BEGIN." 


31 10 

GET Nit 


3115 

DIM KT4- <3) , XT (3) , YT (3) 


3119 

REM *** INITIALIZE VARIABLES *** 


3120 

GR : POKE -- 16302,0: CALL -- 1998: LS = 400 


3130 

COLOR- 15 


3139 

REM *** DRAW MAZE -*** 


3140 

FOR RO = 1 TO 47 


3150 

READ X1,X2,Y 


3160 

HL.IN XI, X2 AT Y 


3170 

NEXT RO 


31 80 

FOR CO - 1 TO 45 


3190 

READ Y1,Y2,X 


3200 

VLIN Y1,Y2 AT X 


3210 

NEXT CO 


3220 

FOR IN = 1 TO 44 


3230 

KOL = INT ( RND (1) * 15) + 1: IF KOL = 15 THEN 3230 

3240 

COLOR-- KOL 


3250 

READ X,Y 


3260 

PLOT X,Y 


3270 

NEXT IN 


3279 

REM *•** INITIALIZE DIRECTION VARIABLES *** 


3290 

FOR I = 0 TO 3: READ KTT < I) : NEXT 


3300 

FOR I = 0 TO 3: READ XT(I): NEXT 


3310 

FOR I = 0 TO 3: READ YT(I): NEXT 


3320 

GOTO 500 


5000 

DATA 5,39,0,35,39,1,35,39,2,5,10,3,35,39,3 


5010 

DATA 30,33,5,0,13,8,0,6,9,32,39,9,35,39,10, 

9,13,11,30,33,13 

5020 

DATA 4,11,15,4.11,16,4,11,18,4,11,19,13,16, 

19,23,25,1 9 

5030 

DATA 23,25,20,29,39,20,29,39,21,27,39,22,5, 

o o ~r 

5040 

DA TA 27,39,23,25,30,24,25,30,25,0,7,26,9,11 

,26 

5050 

DATA 0,7,27,9,11,27,19,30,28,34,36,28,34,36 

1 *— ' 

5060 

DATA 4,11,30,17,34,32,17,34,33,4,6,34,8,10, 

34 

5070 

DATA 37,39,36,4,6,40,8,27,40,4,6,41,8,27,41 

,33,36,41 

5080 

DATA 33,36,42,4,27,44,0,39,47 


5090 

DATA 0,47,0,0,7,1,15,19,4,35,39,4,0,2,5,15, 

19,5 
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5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 

5200 

5210 

5220 


DATA 35,39,6,35,39,8,11,19,9,0,2,10,11,19,10 
DATA 35,39,10,11*22,11,24,27,11,19,39,13,27,33,14 

DATA 4,10,15,4,10,16,16,19,16,14,16,17,23,31,17,12,14,18,20,23,18 

DATA 0,12,19,19,21,19,17,19,20,13,17,21,34,37,21,2,3,22 

DATA 6,15,22,26,27,24,36,39,24,16,18,25,26,27,25 

DATA 0,16,26,34,37,27,26,27,29,5,13,30,26,27,30 

DATA 34,44,30,36,40,33,30,31 ,34,11,19,35,11,19,36 

DATA 11,47,39 

DATA 6,1,7,1,8,1,9,1,6,2,7,2,8,2,9,2 


DATA 37,11,38,11,37,12,38,12,37,13,38,13,37,14,38 
15,37,16,38,16,37,17,38,17,37,18,38,18,37,19,38,19 
DATA 6,17,7,17,8,17,5,35,5,36,5,37,5,38,5', 39,9,35 


14,37,15,38, 

9,36,9,37,9,39 


DATA 26,26,27,26,28,26,26,27,27,27,28,27 
DATA I , j , L , M , 0 , -1 , 1,0, --1,0,0,1 


Atari 


1 REM *•** AMAZIN' ATARI *** 

10 GOTO 3000 

99 REM *** JOYSTICK ROUTINE *** 


100 

J V—ST 1CKCO) 


1 10 

IF JV-14 THFN XI=0 

■YI=-1tRETURN 

120 

IF jy~.!3 THEN XI-0 

:V1=1;RETURN 

130 

IF JOH1 THEN XI-. 

1: YI=0 i RETURN 

140 

IF JV=7 THEN XI = 1: 

YI=0:RETURN 

150 

XI—0tYI=0 


160 

RETURN 


199 

REM *** READ KEYBOARD ROUTINE *** 

200 

XI—0"YI —0 


210 

fc>PEEKC764} 


220 

FOR D---1 TO 15 


230 

NEXT D 


240 

IF K=255 THEN 21.0 


250 

IF K=13 THEN XI-0: 

YI=-Is RETURN 

260 

IF K”37 THEN XI=0: 

YI - J.: RETURN 

270 

IF l<= 1 THEN XI-—1 : 

YI~0;RETURN 

2G0 

IF K-0 THEN X1=1:Y 

I-0sRETURN 

499 

REM *** MAIN LOOP- 

DRAW PLAYER CHA! 

500 

H1 --2 2 M2—0 


510 

CO-2 


er -71 ft 

L—0 


530 

RO—O 


540 

COLOR 0 


550 

PLOT HI ,1-12 


560 

COLOR 2 


570 

PLOT CO,RO 


580 

IF L-1 THEN 2000 


590 

H1--C0: H2=R0s TI=TI + 

1 

600 

ON J 6QSUB 100,200 


610 

RO-RO+YI; CO-CO-i XI 


620 

IF CO>39 THEM 10,00 


630 

IF R0<0 THEN RO-O 


640 

L 0 C A T E C 0 , R 0 , C 


650 

IF OH. THEN L-l 


6 6 0 

POKE 752,6 


670 

P R T N T C H R T C12 5) 


6 8 0 

PRINT TI 


A r ? ( ‘i 

FOR T-i TO 30 


700 

1 'iA. i 1 
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720 

goto 540 




999 

REM *** SUCCESSFULLY COMPLETE MAZE *** 




10 00 

GRAPHICS 0 




1010 

FOR T=1 TO 100 




1020 

PRINT "YOU MADE IT! 11 ; 




1030 

NEXT T 




1040 

PRINT CHR-f- (125> 




1050 

PRINT "YOUR SCORE IS: "; TI 




1060 

IF TI<LS THEN LS=TI 




1070 

PR I NT 




1080 

PRINT "LOW SCORE IS: ";LS 




1090 

PRINT 




1 100 

GOTO 2030 




1999 

REM •***• RUN INTO WALL **•* 




2000 

GRAPHICS 0 




2010 

PRINT "YOU RAN INTO A WALL.!" 




2020 

PR I NT 




2030 

PRINT "PRESS (RETURN) TO PLAY AGAIN." 




2040 

GOSUB 4000 




2050 

RESTORE 




2060 

GOTO 3180 




2999 

R E M * * * IN T R 0 D LJ C T10 N * * * 




3000 

DIM J*(3),R$(3) 




3010 

PRINT CURT (125) 




3020 

PRINT "TYPE YOUR ANSWER" 




3030 

PRINT "THEN PRESS (RETURN) . " 




3040 

PR I NT 




3050 

PRINT "ARE YOU USING A JOYSTICK (Y/N) 




3060 

INPUT JT 




3070 

IF J$="Y" OR YES" THEN J-l 




3080 

IF ,J1 THEN 3150 




3090 

J —2 




3100 

PRINT CHRT(125) 




31 1 0 

PRINT "THE DIRECTION KEYS ARE: " 




3120 

PR I NT 




3130 

PRINT "I-UP M-DOWN J=LEFT L=RIGHT" 




3140 

PRINT 




•3 i 50 

PRINT "PLEASE PRESS (RETURN) TO BEGIN., " 




3160 

GOSUB 4000 




3169 

REM •*** INITIALIZE VARIABLES *** 




3170 

| R = 




3180 

T I 0 




3190 

GRAPHICS 3 




3200 

SETCOLOR 0,0,8 




3210 

COLOR 1 




5220 

READ A,B,C,D 




3230 

IF A~—1 THEN 500 




3240 

PLOT A,B 




3250 

DR A WTO C D 




3260 

GOTO 3220 




3999 

REM #*■* WAIT ROUTINE **•* 




4000 

POKE 764,255 




4010 

IOPEEK (764) 




4020 

IF 10-255 THEN 4010 




4030 

RETURN 




5000 

DATA 0,0,0,19,4,0,39,0,9,1,9,14,1 6 ,1,16,5 




5010 

DATA 25,1,25,4 30,1 ,30,3,341,34,3 




5020 

DATA 4,3,6,3 ,, 4,3,4,11 , 1 8 ,3 18,5 21,3,21,6,28,3, 

'?p, a A.p 

"T “T •{ Q 

■1 ' l i '•••' • 1 L ' V 

1 2 (/ 

Si j *•••, 

u J. 

, 9,32,4,32,7 
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5030 DATA 37,3,37,10,38,3,38,3,9,5,10,5, 14,5,14,5,23,5,23,5,7,6,8,6,2, 

, 4,7 

5040 DATA 20,7,20,12,24,7,37,7,24,7,24,11 

5050 DATA 30,8,30,8,7,9,7,14,9,9,9,14,12,9,17,9,18,9,18,9,19,8,19,9,23, 

O O T O 

/ ? 9 / 

5060 DATA 32,9,32,9,1,10,2,10,18,10,19,10,28,10,28,10 

5070 DATA 19,11,19,11,27,11,27,16,27,11,34,11,34,11,34,15,12,12,16,12, 
■■■-■ ■! 1 O >j , 1 , 4 .j 1 _• , /l + .j 1 4 

5080 DATA 21,13,21,13,4,14,7,14,9,14,18,14,21,14,24,14,24.15,24,15 
5090 DATA 30,14,32,14,32,14,32,18,36,14,36,15,4,16,27,16,35,16,35,16 
5100 DATA 0,19,39,19 
5110 DATA -l,.1 ,~:l,"~l 


Commodore 64 

1 REM *** AMAZIN’ 64 *** 

10 GOTO 3000 

93 REM *** JOYSTICK ROUTINE *** 

100 JV=PEEK(56321) 

110 JV=15-(JVAND15) 

120 IF JV=1 THEN X1=0:YI=-i:RETURN 
130 IF JV=2 THEN X I=0:YI = 1:RETURN 
140 IF JV=4 THEN XI=-1:YI=0:RETURN 
150 IF JV=8 THEN XI=1:YI=0:RETURN 
160 X I=0:YI=0:RETURN 

193 REM *** READ KEYBOARD ROUTINE *** 

200 X1=0:Y1=0:L1=0 

210 GET KE$:IF KE$=“"THEN RETURN 

220 IF KE*=KT*(LI)THEN YI=YT (LI ):XI=XT(LI):RETURN 
230 LI=LI+1:IF LI<4 THEN 220 
240 RETURN 

439 REM *** MAIN LOOP-DRAW PLAYER CHARACTER *** 

500 HI=3:H2=0 
510 CQ=3:RO=0:L=0 
520 TI$="000000" 

530 IF C0> 33 THEN 1000 
540 IF RO <0 THEN RO=0 
550 POKE CB+H1+40*H2,2 
560 POKE CB+CO+40*RO,0 
570 POKE SB+CQ+40*RC,81 
580 IF L=1 THEN 2000 
530 H1=C0:H2=R0 
600 ON J GOSUB 100,200 
610 RQ=RO+YI:CQ=CO+XI 

620 IF PEEK(SB+CC+40*RO)=160 THEN L=1 

630 PRINT CHR$(i9)CHR$(159)TAB(36)RIGHTS(TI$,3) 

640 GOTO 530 

999 REM *** SUCCESSFULLY COMPLETED MAZE *** 

1000 PRINT CHR$(147):WH$=TI$ 

1010 FOR T=1 TO 100 

1020 PR I NT "YOU MADE IT!' " : 

1030 POKE 53280,INT(RND(1)*16)+1 

1040 NEXT T 

1050 POKE 53281,3 

1060 IF UAL(RIGHT*<WH$,3)) <VAL(LSt)THEN LS$=RIGHT*(WH$,3) 
1070 PRINT CHR*(147)CHR*(144) 

1080 PRINT TAB(il)"YOUR SCORE IS:"RIGHT*<WH*,3) 

1090 PRINT 

1100 PRINT TAB(10)"THE LOW SCORE IS:"LS* 

1110 PRINT 
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1120 GOTO 2030 

1999 REM *** RAN INTO WALL *** 

2000 PRINT CHR$ <147)CHR$(144) 

£010 PRINTTABC10)"YOU RAN INTO A WALL!" 

2020 PRINT 

2030 PRINTTAB(6)"PRESS (SHIFT) TO PLAY AGAIN." 
2040 GOSUB 4000 
2050 RESTORE 

2060 GET DUM$:IF DUM$<>""THEN 2060 
2070 GOTO 3120 

2999 REM *** INTRODUCTION *** 

3000 PRINT CHR$(147) 

3010 PRINT " ARE YOU USING A JOYSTICK (Y/N)?" 

3020 GET J*:IF J$=""TH£N 3020 

3030 IF J$="Y" THEN J=l:GOTO 3120 

3040 IF J*=<)"Y" THEN J=2 

3050 PRINT CHR$(147) 

3060 PRINT "THE DIRECTION KEYS ARE;" 

3070 PRINT 

3080 PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 

3090 PRINT 

3100 PRINT "PLEASE PRESS (SHIFT) TO BEGIN." 

3110 GOSUB 4000 

3119 REM *** INITIALIZE VARIABLES *** 

3120 SB=1024:CB=55296:LS$="200" 

3130 POKE 53280,6:POKE 53281,2:POKE 650,128 

3139 REM *** DRAW MAZE *** 

3140 PRINT CHR$(147) 

3150 READ CO, A, B 

3160 IF CO=-l THEN 3220 

3170 FOR RO=A TO B 

3180 POKE SB+CO+40*RO,160 

3190 POKE CB+CO+40*RO,1 

3200 NEXT RO 

3210 GOTO 3150 

3220 READ RO,A,B 

3230 IF RO=—1 THEN 3290 

3240 FOR CO=A TO B 

3250 POKE SB+CO+40*RO,160 

3260 POKE CB+CO+40*RO,1 

3270 NEXT CO 

3280 GOTO 3220 

3290 READ RO,A,B 

3300 IF RO=-l THEN 3380 

3310 FOR CO=A TO B 

3320 Q=INT(RND(1)*16)+1 

3330 IF Q<3 OR Q>7 THEN 3320 

3340 POKE SB+CO+40*RO,81 

3350 POKE CB+CO+40*RO, Q 

3360 NEXT CO 

3370 GOTO 3290 

3380 READ RO,CO,CH 

3390 IF RQ=-1 THEN 3440 

3400 POKE SB+CO+40*RO,CH 

3410 POKE CB+CQ+40*RO,158 

3420 PRINT CNR$(144) 

3430 GOTO 3380 

3439 REM *** INITIALIZE DIRECTION ARRAYS *** 

3440 FOR 1=0 TO 3 : READ KTS> (I > : NEXT 


IS 
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3450 

FOR I 

=0 TO 3:READ XT(I):NEXT 



3460 

FOR I 

=0 TO 3:READ YT(I):NEXT 



3470 

GOTO 

500 



3399 

REM *** WRIT ROUTINE *** 



4000 

WAIT 

653, 1 



4010 

WAIT 

653, 1, 1 



40£0 

RETURN 



5000 

DATA 

0,0, 24, 1,0, 6, 4, 18, 20, 5, 0, 2, 5, 18, 20 



5010 

DATA 

6, 0, 2, 6, 18, 20, 7, 0, 2, 8, 1,2, 8, 7, 10, 8, 18, 20 



5020 

DATA 

9, 14, 14,9, 1,2,9,7, 10,9, 18,20, 10,7, 10, 10, 13, 14 



5030 

DATA 

10, 18, 20, 12, 10, 20, 13, 3, 5, 13, 14, 15 



5040 

DATA 

14, 3, 5, 16, 14, 16, 17, 0, 7, 21, 4, 7, 25, 0, 8, 27, 11, 13 



5050 

DATA 

£7, 17, 18, 28, 10, 13, 29, 2, 6, 29, 9, 13 



5060 

DATA 

30, 9, 13, 31,17, 22, 34, 14, 16, 34, 18, 21,36, 4, 10 



5070 

DATA 

39, 0, 1,39, 3, 24, -1, -1, -1 



5060 

DATA 

0,5,39, 1,5,7, 1,35, 39, 2, 5, 7, 2, £1,21,2, 29, 33 



5090 

DATA 

3, 13, 14, 3, 36, 39, 4, 32, 35, 5, 2, 11,6, 2, 4 



5100 

DATA 

6, 30, 32, 7, 11, 12, 8, 16, 16, 8, £0, 20, 9, 4, 7 



5110 

DATA 

9, 15, 15, 9, 19, 19, 9, £4, £4, 9, 29, 35, 10, 4, 7 



5120 

DATA 

10, 13, 14, 10, 18, 18, 10, £2, £4, 10, 28, 38, 11, 10, 10 



5130 

DATA 

11, 17, 17, 11, 27, 30, 12, 4, 8, 12, 16 , 16, 12, 26, 30, 13 

, 16 

, 16, 13, 16, 30 

5140 

DATA 

14, 1,7, 14, 13, 13, 14, 35,36, 15, 13, 13, 16, 4, 10, 16, 

16, 

33 

5150 

DATA 

17, 18, 18, 17, 27, £7, 18, 4, 6, 18, 8, 10, 18, 18, 18, 18, 

38, 

38 

5160 

DATA 

18, 22, 22, 19, 4, 6, 19, 8, 10, 19, 22, 22, 20, 4, 6, 20, 8, 

10 


5170 

DATA 

20, 11,27, 21,35, 36, 22, 4, 27 



5180 

DATA 

£4, 0, 39, —1, -1, —1 



5190 

DATA 

0, 36, 38, 1,6, 8, 8, 9, 9, 9, 9, 9, 11, £9, 29, 12, £8, £9, 19, 5 

,5 

5200 

DATA 

19, 9, 9, 4, 38, 38, 5, 37, 37, 6, 38, 38, 7, 37, 37 



5210 

DATA 

8, 38, 38, 9, 37, 37, — 1, —1, —1 



5220 

DATA 

4, 37, 1,5, 38, 13, 6, 37, 1,7, 38, 26, 8, 37, 9, 9, 38, 14, 

“I, 

-1,-1 

5230 

DATA 

I, J,L,M,0,-1, 1,0, -1,0,0, 1 



IBM PC 




.1.0 R 
20 

£ti *** 

E v" OF f 

f-ilif-TZIN IBM . PC *•**• 



50 fa' 
40 R 

U 1 0 5“ 
Eli #*■* 

1 

• READ KEYBOARD 



50 L 

1=0: X'J 

•“0: Y I — 0 



' K 

ET- INI- 

.EYT 



70 IF KEt= 

' THEN RETURN 



SO IF' RE* 

•KT-f (I...I) THEN YI-YT(L I) :XI = XT (LI) ;RETURN 



90 i.. 

I GO 

I ==L 1 + : 
RET URT 

: IF LG. 1 THEN- 80 

1 



1 1 0 

RE 11 ■** 

■ H- H (Jt ' ■■■• DFlhI'J UHARAC l h.b- *** 



120 

CO”4 : f 

<0=1 : l..=-0: H 1 = 1: H2=4 



130 

L.ULiTT T 

. HI, FT 2,0 



14 0 

FR . 1 . 1! 1 

C HR i' (-32) ; 



150 

LOCO I t 

. RO.CO,0 



160 

F'R IN 1 

CHET(2); 



.1 7 0 

H :i..RO 

H2=C0 



jl 

IF L-: 

. 11 IF. H 440 



.1. 90 

GO SUB 

50 



'2.00 

RG--RO - 

- v I : CO"=CG + X 1 



210 

IF RO. 

■24 THEN HO4 




IF RO 

1 THEN RQ---1 



240 

IF- 00 : 
IF CO 
L'—bCRt 

.1. ! s it..! ! i 

8'.) THEN 310' 

•EM < ISO ,, CO > 



260 

IF Q 

<19 THEN l. : “l 




13 







10 AWESOME PROGRAMS FROM K-POWER 


270 LOCATE 2,76,0 

280 PRINT RIGMT $ (TIME*,4) 

290 GOTO 130 

300 REM *** MAZE COMPLETED *** 

310 CLS 

320 S-100*VAL < M 1D* ( T I MET , 4,2) ) •+■ VAL < MIDT (TI MET , 7 , 
330 FOR T-l TO 30 

340 PRINT TAB(33);"YOU MADE IT!'!" 

350 PRINT:NEXT T 
360 IF SCLS THEN L3=B 
370 CL.S 

380 PRINT "YOUR SCORE IS: M ;S 
390 PRINT 

400 P RI i f T " I H E L ON S C 0 R E IS: " ; L. S 
410 PRINT 
420 GOTO 470 

430 REM *** RAN INTO A WALL DUMMY %**eX'*&*! *** 
440 CLS 

450 PRINT "YOU RAM INTO A NALL! YOU LOSE." 

460 PRIM! 

470 PRINT "PRESS CENTER' TO PLAY AGAIN." 

480 GOSUB 1000 

490 RES TORE 

500 DUM*~ I NI-.E Y t 

510 IF DlJMtO'"' THEN 500 

520 CL. S 

530 GOTO 630 

540 REM •*** INTRQDUC r ION *** 

550 SCREEN 0,0,0 sWID TH 80sLS=999 
560 CL..S 

570 PRINT "THE DIRECTION KEYS ARE:" 

580 PRINT 

590 PRINT "I=UP M=DOWN J-LEFT L=RIGHT" 

600 RR I N ! 

610 PRINT "PRESS CENTER!'- TO CONTINUE. " 

620 GOSUB lOOO 
630 CLS 

640 REM *** INITIAl.IZE. MOTION ARRAYS *** 

650 TOR l — o TO 3: READ K"! $ >. I > r, NE XT I 
660 FOR I~0 TO 3:READ XT(I);NEXT I 

6 70 FOR !l ••■(!•• 10 3: READ Y I < I ) ; NEXT ] 

680 REN *** SCREEN DISPLAY *** 

690 READ RQ,A,B 

700 IF R0«.1 fHEN 760 

710 FOR CO™A TO B 

7 20 !... O C (■) T E F- 0 „ C 0 , O 

7 3 O P R I N T C H R T < 2 ! 9 ) ; 

?40 NEXT CO 
750 GOTO 690 
760 READ CO,A,D 
7 70 IF CG : ~- .1 I HEN 830 
780 FOR RO-a TO B 
7 90 L.QCA T E RfJ ,!...:0,0 
SOU PRINT CHRT <21 9) r, 

810 NEXT RO 
820 GOTO 760 
830 FOR RO-8 TO 13 
840 READ CO,CH 
850 I...OCAT E RO „ CO , O 
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10 AWESOME PROGRAMS FROM K-POWER 


860 PRINT CHRt(CH); 
870 NEXT EO 
880 TI ME ■$- " 00: 00: 00 
890 GOTO 120 


900 

REM ***:• WAI 

T 

ROUTINE 










j ooo 

.->2 

4* 

•it 

tn 

; • * 













1010 

IF Ri 

■< >CHR 

■$ 

01.3) THEN 

1 ooo 










1020 

RET UR 

N 













2000 

DA 1 A 

I , H , J 

*1 

i. 0,0 , 1 , 1 

q .1 >| J. H 0 *| O 










2010 

DA 1 A 

1,7,80 

3 vR '3 A 3 

, 7 6,80,4 , 

7 9 

- H - *1 

5,5 7 

4 L) '-..i q i.) q J. q 

4 , 

6 , 

i 8 , 21 , 

6 


36,38,7 

/ jC. m B 

o 














2020 

DA T A 

8 f 1 1 n 

•1 

. 1 . 

? o /„ O 7 > 

(] t.J q >,.,1*.../ q f q 

9,38,41 ,9 

q O / q 

68 „ 1 

0,1 5 , l 8 , 

10 

,4 

1 , 61,1 

i 

a 

T ■] q J. .it’., f 

4 1,5 

7, 12.6 

'.t. n 













20 30 

DA T A 

14 ,7 , 

8 

,, 14,10,1 1 , 

14,13 ,.14, 

14,2 

B i, 29 

, 14,31,3 

2 q 

1 4 

,77,80 

t 

1 

5, 11,1 2 

15,2 

0,21 , 1 

5,54 


4,16,44,54 











2040 

DA r A 

i 7 , 1 , 

4 

, 18,15,38 , 

1 9 54 65 

18,6 

B n 7 -? 

20,38,5 

j. , 

21 

q •—.* q / q 

i 

j. 

*> 

11 35 , 

22 ,4 

9,76 ,2 

s 1 7 

'S 

t , - 1 , - 1 , -1 











2050 

DA ! A 

1 1 , 2 

5 

'i •••••' i «t } ■■ 

,4,21, 8 ,1 

4,1 4 

4 V „ b* 

, 8 ,9, 21 , 

21 

, 1 

0 , i 4 , 1 

4 

*» 

1 1 , 8,21 

1 1 ,, 2 

•i: • ;* "-t i 

•-* i *.* * *■ 

2 , J. 5 , 

.1 

i a i 

q X ij 4.. ■) q J. 

3,14,14 










2060 

DAT A 

1 4,14 

M 

14,15,5,10 

, 15,13,13 

„ 15 

1 7 „ 1 

7 ,:!. 6 „ J. 6 

1 6 

, 1 

7,15,1 

5 


i R v A 

. 1 . U q _q U q 

18,1 

0,1 4 ,2 

: 0 , is, 

1 

5 ^ 2 j n £, fj j 5 n 

23,4,4,23 


‘1 

:3,24,24 







20 7 O 

DA i A 

2 :4 „ 5 , 

o 

^ 25 q 6 .{. 7 4 2 

8,3,14,30 

, 6,6 

,| -C.. 1, 

6,1 7 ,34, 

Cj ,, 

1 7 

q q SL.. '..I* 

H 


~ i ~ C - H H 

1 4,3 

6,1 6 , .1 

6,38 , 

7.i 

. q .j -ji'3 if .1 C J >1 

’••• *1 4 J. / q 1 










2080 

Da ta 

40 „ .1 6 

*) 

16,41,4, 1.0 

, 4 1. , 12,15 

, 4 1 , 

4l. •-!' 4 2 ‘. 

4,45, 2,6 

, 4 

5, 

j 7,18 , 

4 

: !IU‘ 

,19,22, 

49 ,j 5 

, 10,52 

, 1 7 , 1 

C.| 

!53 2 q q 54 

,15,18,55 

1 8 „ 

'20 








2090 

DA TA 

5 7,5 „ 

i 

0,59,13,13 

>i 59 q 20 >i 21 

4 0 I- «» 

•' M S >i 

61 , 10 ,, 12 

q O 

1 , 

j A 1 L 

. 1 . W q . 1 . W q 

6 


,2,2,62 

6,6 , 

a 2 q 9 

' /_ r 

if 7 

it 

3 „ 63,5,57 

i) xL ij 










2100 

Oh I I-’! 

6 3 n 8 

8 

,64„4,4,64 

q 7 ,, / q ,55 q C \ 

, 6 , 6 

i.~y -i 

,J n 1 7 

, . 1 .9,69 2 

..y 


2 ,4, 12 

H 

7 

2 , 20 , 21 

74,7 

H •~ i 4 7 t 

1 3 , , 1 


• , 7 6 ,1 6,16 , 

77 .. 7 , 14 „ 7 

9,24 

■24 








21 10 

DA ! A 

■■■ o >i .22 

.< 

'< ck .- 1 «i 1 »( 

t>o , 7,2 .:!■ „ 

{ . 1 

'« 

. 1 

1 x 








2120 

DAT A 

"7 C) 

r ( 

7 9 ? '7 « 7 8 co 

5 4 7 9 ,, 90 ? 7 

‘...r q / 

M * - ^ 

7 9. 








TI-99/4A 

i REM *** AMAZIN' TI99/4A **■■* 

10 GOTO 740 

19 REM *** JOYTSICK ROUTINE *** 


20 

CALL JOY 

ST ( 2,M,N 5 

"T ,;■) 

X I ==0 


40 

YI — 0 


50 1 

LI ~0 


60 

IF M=J I ( 

j r \ T j...|ph| "7/■) pj qrr i •} ( 

7 0 

IF N”K I ( 

LI)THEN 80 ELSE 11 

80 

XI-XT<L I 

) 

90 

YI"XY < L. I 

) 

100 

RETURN 


110 

LI =L T. 1 


1 20 

T T HT T T -j 


1 T 

IF LI<4 

THEN 60 

1 40 

XI-0 


150 

YI =0 


160 

RETURN 


:! 69 

REM **•* 

READ KEYBOARD *** 

1 "7 0 

V T 


1 RO 

YI “0 


1 C3.“. 

J T 


200 

/AL. L. ki.:. 

V { , !•::* , P) 



THEN 170 

230 

! TC ( 

LI)THEN 240 ELSE 2 
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10 AWESOME PROGRAMS FROM K-POWER 


240 XI-XT(LI) 

250 YI-XY(LI) 

260 RETURN 

270 LI-LI+1 

280 IF LI<4 THEN 230 

290 XI=0 

300 X I=0 

310 RETURN 

319 REM *** MAIN LODP/DRAW PLAYER CHARACTER *** 

320 HI—1 
330 H2—4 
340 R0--1 
350 CD-4 
360 L—0 

370 CALL VCHAR(H1,H2,1 36 ) 

380 CALL VCHAR (RQ,, CO ,144) 

390 IF L—1 THEN 660 
400 HI—RO 
410 H2-C0 

420 ON J GOSSJE 20,170 
430 R 0 - R 0 + X I 
440 CO-CO-i-Y I 

450 IF ROC 1 THEN 460 ELSE 470 
460 RO-1 

470 IF CO>32 THEN 520 
48 0 C A L L G C H A R ( R 0 , C 0 , D) 

490 IF D-128 THEN 500 ELSE 370 

500 1 

510 GOTO 370 

519 REM *** COMPLETED MAZE *** 


520 

CALL S 

c 

REEN<12) 

530 

CALL C 


EAR 

540 

FOR T- 

1 

TH 7!"i 

550 

PR I NT 

< ! 

YOU MADE IT ! : 

560 

PR I NT 



570 

NEXT T 



580 

IF TIC 

1 

l.. 

S THEN 590 ELSE 600 

590 

| O-TT 



600 

PR I NT 



6 j. 0 

PRINT 

•1 

YOUR SCORE IS:";TI 

620 

IE' Q T l\ 1 X 

1 1 ,L | ‘A 1 



630 

PR I NT 


THE LOW SCORE IS:";LB 

640 

PR I NT 



6*50 

GOTO 7 

0 

(J 

659 

REM *** 

LOSE GAME *** 

660 

CALL.. ::> 

L 

RE^EIm i. 9 : 

670 

CAL.L C 

L 

b. A K 

680 

PR I NT 

H 

YOU RAN INTO A WALL!" 

690 

PR f NT 



700 

PRINT 

•i 

PRESS (ENTER) TO PLAY 

710 

GO SUB 

1 

260 

720 

CALL C 

\ 

EAR 

7 3 0 

GOTO 9 

•"7 

0 

734 

REM *•* 

X- 

INTRODUCTION *** 

740 

CAL.L C 

J 

EAR 

750 

ppj f Krr 

M 

TYPE YOUR ANSWER" 

760 

PRINT 

II 

THEN PRESS (ENTER) . 

/ / n 

PR I NT 



7 n o 

F‘R T MJ 


ARE YOU USING A JOYS':' 
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10 AWESOME PROGRAMS FROM K-POWER 


.-RIGHT' 


790 INPUT ,7T 

800 IF SEG$(J$,1,1)="V" THEN 810 ELSE 830 

810 J = 1 

820 GOTO 880 

830 J =2 

840 CALL CLEAR 

850 PRINT "THE DIRECTION KEYS ARE:" 

860 PRINT 

870 PRINT " I=UP M-DOWN J=LEFT L-RIGHT" 

880 PRINT 

890 PRINT "PRESS (ENTER) TO BEGIN." 

900 GOSUB 12.60 
910 LS--999 
920 RESTORE 
930 TI=0 

939 REM *** DEFINE CHARACTERS *** 

940 AT-"FFFFFFFFFFFFFFFF" 

950 BT--' "IS 183CFFFF3C1818 " 

960 CALL CHAR(128,AT > 

970 CALL CHAR(136,BT) 

980 CALL CHAR(144,BT 5 
990 CALL COLOR(13,5,5) 

1000 CALL COLOR(14,2,2) 

1010 CALL COLOR(15,15,2) 

1020 FOR V=1 TO 12 
1 030 CALL COLORCV,16,2) 

1040 CALL CLEAR 
1050 NEXT V 

1059 REM **-* SCREEN DISPLAY *** 

1060 READ RO,CO,REP 

1070 IF R0=.1 THEN 1100 

1080 CALL VCHAR (RO,CO,128,REP) 

1090 GOTO 1060 

1100 READ RO,CD,REP 

1110 IF RQ“~1 THEN 1140 

1120 CALL HCHAR(RO,CO,128,REP) 

1130 GOTO 1100 
1140 FOR V—26 TO 31 
1150 READ CH 
1160 CALL HCHAR(23,V,CH) 

3.170 NEXT V 

11.79 REM *** LOAD DIRECTION ARRAYS ***• 

1180 FOR I—0 TO 3 
1190 READ XT(I) 

1200 READ XY(I) 

1210 READ JKI) 

1220 READ KI. (I) 

1230 R'EAD B (I) 

1240 NEXT I 
1250 GOTO 320 
1260 INPUT RT 
>270 RETURN 

1280 DATA 1,2,24,6,4,5,12,4,5 . 18,4,2 „ 2.1,4 ,: 

■I i\/\ TA A k; •! /j ' /{ C) L i £- c:r [ q y 'T 

.i:.. / i H -*r « * .i. n "t jO j -v . t / . } >.J •: r. J. •_./ > Cj j $ i 7 •» t 

J. }. * \ "I | f-| -T v .1. J. v .1 i, ij .1. J. i ^ i. I, 1 : f J. X i ij 

1 i U l.tf i i m 9 i >. ■ ,5 , .1 *j , 9 ..12 < 16 .2 , .1., .!, 8 , .i. , V 

1320 DATA 1 I „ 19 , i . i 7,19.5,1,20 ., 1 1 ,4,22,6 , 1 


HAR(23,V,CH) 


1 •. I 











10 AWESOME PROGRAMS FROM K-POWER 


1 

350 

DATA 

1,3 

5 

"DO 

r-l 


24, 

9, 

6 


o 

o 

? ■*- i 

O "D“D CD 1 1 

f j 4.C ^ U ^ .i .L 

1 

.L 

360 

DATA 

13, 

1 

6,8 


1 

5,1 


1 

~7 
' ' i 

1 

7,8 

h 4 , 14,1 0 . 

1 

370 

DATA 

24, 

1 

,31 

1 

1 

9,6 

, i 

8 

or 

, ,J 

i 

18, 

1 1 Q 7 1 1 

i. B .1 / -.J .L .L 

.1. 

380 

DATA 

65, 

"7 

7,6 

rr 

M 

90, 

”7*T 

^1 

78 




i 

390 

DATA 


0 

i O, 

4 

1 

73, 

1 , 

0 

?o 

i 

”4, 

77 

l 

400 

DATA 

0 , - 


, '-4 

5 ' 

o 

, 74 

, 0 


i , 

4 

, 0 , 

76 



TRS-80 Color Computer 

1 REM *** AMAZIN’ *** 

10 GOTO 3000 

99 REM *** JOYSTICK *** 

100 H=JOYSTK(0) 

110 V=JOYSTK(1) 

120 IF H <10 THEN X1=0:YI=-1:RETURN 
130 IF H> 52 THEN X1=0:YI = 1:RETURN 
140 IF V<10 THEN YI=0:XI=-l:RETURN 
150 IF V>52 THEN YI=0:X1=1:RETURN 
160 YI=0:X1=0:RETURN 

199 REM *** READ KEYBOARD *** 

200 L1=0 

220 KE$=INKEY$:IF KE*="" THEN RETURN 

230 IF KE*=KT*(LI) THEN YI=YT(LI):XI=XT(LI):RETURN 

240 LI=LI+1:IF LI<4 THEN 230 

250 RETURN 

499 REM *** MAIN LOOP-DRAW PLAYER CHARACTER *** 

500 C0=4:RQ=0 

510 REM *** FOR EXTRA FUN *** 

520 REM *** CRUISE THE CLOCK *** 

530 SET (CO, R0,5> 

540 IF F=2 THEN 570 
550 FOR T=1 TO 2 
560 NEXT T 

570 IF L=1 THEN 2000 
580 RESET (CO,RO) 

590 TI=TI+.3 

600 ON J GOSUB 100,200 

610 RO=RO+XI:CO=CO+YI 

620 IF CO> 63 THEN 1000 

630 IF RO <0 THEN RO=0 

640 IF POINT (CO,R0)=3 THEN L=1 

650 PRINT025,INT(TI): 

660 GOTO 510 

999 REM *** COMPLETED MAZE *** 

1000 CLS 

1010 FOR T=1 TO 100 
1020 PRINT "YOU MADE IT! 

1030 FOR D=1 TO 10 
1040 NEXT D 
1050 NEXT T 
1060 CLS 

1070 PRINT "YOUR SCORE IS:"INT(TI) 

1080 IF INT(TI) <LS THEN LS=INT(TI) 

1090 PRINT 

1100 PRINT "THE LOW SCORE IS:"LS 
1110 PRINT 
1120 GOTO 2030 

1999 REM *** RAN INTO THE WALL DUMMY!?+@!! *** 

2000 CLS 

2010 PRINT "YOU RAN INTO A WALL!" 


18 
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£ 0£0 

£030 

£040 

£050 

£060 

£070 

£993 

3000 

3010 

30£0 

3030 

3040 

3050 

3060 

3070 

3000 

3090 

3100 

3110 

3119 

31£0 

3130 

3139 

3140 
3150 
3160 
3170 
3180 
3130 
3£00 
3£10 
3££0 
3£30 
3£40 
3£50 
3£60 
3£70 

1 ic!00 

3£90 

3£99 

3300 

3310 

33£0 

3330 

3999 

4000 
4010 
5000 
5010 
50£0 
5030 
5040 
5050 
5060 
5070 
5080 
5090 


PRINT 

PRINT "PRESS (ENTER) TO PLOY AGAIN." 

GOSUB 4000 
RESTORE 

DUM$=INKEY$:IF DUM$<>"" THEN £060 
GOTO 3130 

REM *** INTRODUCTION, THE CURTAIN RISES... *** 

CLS 

PRINT "ARE YOU USING A JOYSTICK (Y/N)?" 

J$=INKEY$:IF J$="" THEN 30£0 
IF J$="Y“ THEN J= 1:GOTO 31£0 
IF J*<> "Y" THEN J=£ 

CLS 

PRINT "THE DIRECTION KEYS ARE:" 

PRINT 

PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 

PRINT 

PRINT "PRESS (ENTER) TO BEGIN." 

GOSUB 4000 

REM *** INITIALIZE VARIABLES *** 

LS=£00 

CLS(0):L=0:YI=0:XI=0:TI=0 

REM *** DRAW LE MAZE PIERRE *** 

READ A,B 

IF A=—1 THEN 3E00 
FOR CO=A TO B 
PRINT0CC,CHR*(143+3£); 

NEXT CO 
GOTO 3140 
READ A,B 

IF A=—1 THEN 3£60 
FOR RO=A TO B STEP 3£ 

PRINT0RO,CHR$(143+3£) ; 

NEXT RO 
GOTO 3£00 

FOR RO=158 TO 318 STEP 3£ 

READ CH 

PRINTtfRO. CHR$(CH); 

NEXT RO 

REM *** INITIALIZE DIRECTION VARIABLES *** 

FOR 1=0 TO 3:READ KT$(I):NEXT I 
FOR 1=0 TO 3:READ XT(I):NEXT I 
FOR 1=0 TO 3:READ YT(I):NEXT I 
GOTO 500 

REM *** WAIT ROUTINE *** 

INPUT R$ 

RETURN 

DATA 4,31,61,63, 1£8, 130, 149, 157, 195, 197, £06, £19 

DATA £96,309,315,317,330,3£2, 349, 351.357,370,376,379 

DATA 4£4, 437, 444, 447, 480, 510, -1,-1 

DATA 0, 448, 4, 68, 5, 389, 104, £96, 11, £35, 45, 45 

DATA 141. 141,79,£07,18,146, £74, £74,85, 149 

DATA £45, £45, 309, 437, £4, 88, £16, 440, 91,91 

DATA £51,£51, 1£5,349, 1£6,1£6, 350,350 

DATA 1£7,510,-1,-1 

DATA 65,77,65,90,73,78 

DATA J, I,M,L, 0,-1, 1.0,-1,0,0, 1 
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TRS-80 Model III and Model 4 

1 REM *** AMAZIN TRS-80 MODELS 3 AND 4 CASS. OR MODEL 3 DISK BASIC *** 
10 GOTO 3000 

199 REM *** READ KEYBOARD *** 

200 LI=0 

210 KE$=INKEY* 

220 IF KE$="" THEN RETURN 

230 IF KE$=KT*(L1) THEN YI=YT<LI>:XI = XT(LI) : RETURN 

240 LI=LI+1 

250 IF LI<4 THEN 230 

260 RETURN 

499 REM *** MAIN LOOP-DRAW PLAYER CHARACTER *** 

500 C0=5 
510 RQ=0 

520 SET (CO,RO) 

540 FOR T=1 TO 2 
550 NEXT T 

560 IF L=1 THEN 2000 
570 RESET (CO,RO> 

580 TI=TI+.2 ' 

590 GOSUB 200 

600 RO=RO+YI:CO=CO+XI 

610 IF CO>127 THEN 1000 

620 IF R0<0 THEN R0=0 

630 IF POINT (CO,RO) THEN L=1 

640 PRINTS56,INT(TI)? 

650 GOTO 520 

999 REM *** COMPLETED MAZE *** 

1000 CLS 

1010 FOR T= 1 TO 100 

1020 PRINT "YOU MADE IT! "; 

1030 FOR D=1 TO 10 
1040 NEXT D 
1050 NEXT T 
1060 CLS 

1070 PRINT "YOUR SCORE IS:"INT(TI) 

1080 IF INT(TI)CLS THEN LS=INT(TI> 

1090 PRINT 

1100 PRINT "THE LOW SCORE IS:"LS 
1110 PRINT 
1120 GOTO 2030 

1999 REM *** RAN INTO A WALL *** 

2000 CLS 

2010 PRINT "YOU RAN INTO A WALL!" 

2020 PRINT 

2030 PRINT "PRESS (ENTER) TO PLAY AGAIN." 

2040 GOSUB 4000 
2050 RESTORE 
2070 GOTO 3130 

2999 REM *** INTRODUCTION *** 

3000 CLS 

3060 PRINT "THE DIRECTION KEYS ARE:" 

3070 PRINT 

3080 PRINT "I=UP M=DOWN J=LEFT L=RIGHT" 

3090 PRINT 

3100 PRINT "PRESS (ENTER) TO BEGIN." 

3110 GOSUB 4000 

3119 REM *** INITIALIZE VARIABLES *** 
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3120 LS=999 


3l30 cls:L= o:vI=0:xI=o: ti=o 

3139 REM *** DRAW MAZE *** 

3140 READ A,B 

3150 IF A=-l THEN 3200 
3160 FOR C0=A TO B 
3170 F'RINTUCO, CHR* (191) ; 

3180 NEXT CO 

3190 GOTO 3140 

3200 READ A,B 

3210 IF A=—1 THEN 3260 

3220 FOR RO=A TO B STEP 64 

3230 PRINT0RO,CHR*<191); 

3240 NEXT RO 
3250 GOTO 3200 

3260 FOR R0=317 TO 639 STEP 64 

3270 READ CH 

3280 PRINT@RO,CHR$<CH); 

3290 NEXT RO 

3299 REM *** LOAD DIRECTION VARIABLES *** 

3300 FOR 1=0 TO 3:READ KT$(I):NEXT I 
3310 FOR 1=0 TO 3: READ XT(I).'NEXT I 
3320 FOR 1=0 TO 3:READ YT(I):NEXT I 
3330 GOTO 500 

3999 REM *** WAIT ROUTINE *** 

4000 INPUT R$ 


4010 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
51 10 
5115 
5120 
5130 
5140 


RETURN 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


4,63,68,71,120,127,141,143,192,203, 
221,225,252,255,292,297, 325,333,38, 
361,379,449,450,460,461,464,468,472 
513,521,528,528,536,537,548,552,570 
595,601,503,509,604,609,612,617,619 
654,656,668,671,699,700, 709,744,752 
847,850,912,915,863,872,880,887,891 
0,960,83,467,84,468,152,408,165,229 
70.1,765,702, 766,775,775, 841,905,780 
96,96,99,99,423,423,105,169,112,240 
858,922,797,861,874,874,180,308,184 
255,959,318,638,-1,-1 
65,77,65,90,73,78 
M,I,J,L 
0,O,-1,1 
1,-1,0,0 


205,207 
40,352,357 
,499,502,507 
,572,584,586,591,592 
,630,633,635,645,645 
,756,759,764 
,894,960,1022,-1,-1 
,91,347,157,157,836,900 
,844,790,854,857,921 
,173,301,684,876,789,853 
,248,252,700,63,127 


VIC-20 

1 REM *** AMAZIN’ VIC-20 *** 

10 GOTO 3000 

99 REM *** JOYSTICK ROUTINE *** 

100 POKE 37154,127 

1i0 XT%=PEEK(37152)AND128 
120 POKE 37154,255 

130 XT*=XTY. OR ( PEEK (37137) AND127) 

140 XI =SGN ( XT-/.AND 128) -SGN ( XT*AND 16) 

150 YI=SGN(XT%ANDB)-SGN(XT%AND4) 

160 RETURN 

199 REM *** READ KEYBOARD ROUTINE *** 

200 X1=0:YI=0:LI=0 

210 GET KE$:IF KE$=""THEN RETURN 

220 IF KE$=KT$(LI)THEN YI=YT(LI):XI=XT(LI):RETURN 
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230 LI=LI+1:IF LI<4 THEN 220 
240 RETURN 

499 REM MAIN LOOP-DRAW PLAYER *** 

500 Hl==3: H2=0 
510 CO=2:RO=0:L=0 
520 TI*="000000" 

530 IF CQ> 21 THEN 1000 
540 IF RO <0 THEN RO=0 
550 POKE CB+H1+££*H£, £ 

560 POKE CB+CO+22*RO,0 
570 POKE SB+C0+£2*R0,81 
580 IF L=160 THEN £000 
590 Hl=CO:H£=RO 
600 ON J GOSUB 100,200 
610 RO=RO-YI:CO=CO-XI 
620 L=PEEK(SB+C0+£2*R0) 

630 PRINT CHR*(19)CHR*(159)TAB(18)RIGHT* <TI*, 3) 

640 GOTO 530 

999 REM *** COMPLETED MAZE *** 

1000 PRINT CHR*(147):WH*=TI* 

1010 FOR T=1 TO 100 

1020 PRINT"YOU MADE IT! "; 

1030 POKE 36879,INT(RND(1)*7)+8 

1040 NEXT T 

1050 POKE 36879,237 

1060 IF VAL(RIGHT*(WH*, 3))(VAL(LS*)THEN LS*=RIGHT*(WH*,3) 
1070 PRINT CHR*(147)CHR*(144) 

1080 PRINT "YOUR SCORE IS:"RIGHT*(WH*, 3) 

1090 PRINT 

1100 PRINT "THE LOW SCORE IS:"LS* 

1110 PRINT 
1120 GOTO £030 

1999 REM *** RAN INTO WALL *** 

£000 PRINT CHR*(147)CHR*(144) 

2010 PRINT "YOU RAN INTO A WALL!" 

£020 PRINT 

£030 PRINT "(SHIFT) TO PLAY AGAIN" 

2040 GOSUB 4000 
£050 RESTORE 

£060 GET DUM*:IF DUM*<>""THEN £060 

2070 GOTO 3120 

£999 REM INTRODUCTION *** 

3000 PRINT CHR*(147) 

3010 PRINT "USING A JOYSTICK (Y/N)" 

3020 GET J*:IF J*=""THEN 30£0 
3030 IF J*="Y" THEN J=l:GOTO 3120 
3040 IF J*= <>"Y” THEN J=£ 

3050 PRINT CHR*(147) 

3060 PRINT "THE DIRECTION KEYS ARE" 

3070 PRINT 

3080 PRINT "I=UP M=DOWN" 

3090 PRINT "J=LEFT L=RIGHT" 

3100 PRINT:PRINT "PRESS (SHIFT) TO BEGIN” 

3110 GOSUB 4000 

3119 REM *** INITIALIZE VARIABLES *** 

31£0 SB=7680:CB=38400:LS*="£00" 

3130 POKE 36879,46:P0KE 650,128 

3139 REM *** DRAW MAZE *** 

3140 PRINT CHR*(147) 
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3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3380 

3390 

3400 

3410 

3420 

3430 

3439 

3440 
3450 
3460 
3470 

3999 

4000 
4010 
4020 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 


READ CO, A, B 

IF CO=-l THEN 3220 

FOR R0=A TO B 

POKE SB+C0+£2*R0,160 

POKE CB+C0+£2*R0,1 

NEXT RO 

GOTO 3150 

READ RO,A,B 

IF RO=—1 THEN 3380 

FOR CO=A TO B 

POKE SB+C0+2£*R0,160 

POKE CB+C0+22*R0,1 

NEXT CO 

GOTO 3220 

READ RO, CO,CH, Q 

IF RQ=-1 THEN 3440 

POKE SB+C0+£2*R0,CH 

POKE CB+C0+22*R0,Q 

PRINT CHR$ <144) 

GOTO 3380 

REM *** INITIALIZE DIRECTION VARIABLES *** 

FOR 1=0 TO 3:READ KT$(I):NEXT 
FOR 1=0 TO 3:READ XT(I):NEXT 
FOR 1=0 TO 3:READ YT(I):NEXT 
GOTO 500 

REM *** WAIT ROUTINE *** 

WAIT 653,1 
WAIT 653,1,1 
RETURN 

DATA 0, 0, 22, 3, 15, 19, 4, 0, 2, 5, 0, 16, 8, 3, 14 

DATA 11, 1,9, 14, 2, 6, 14, 9, 12, 16, 12, 16, 18, 3, 10 

DATA 18, 16, 17, 21,0, 1,21,3, 22, -1, -1, -1 

DATA 0, 4, 17, 1, 17, 21,2, 14, 15, 3, 18, 21,4, 17, 17, 5, 0, 

DATA 6, 15, 16, 8, 3, 5, 9, 14, 17, 10, 18, 21, 12, 1,2, 12, 11 

DATA 14, 8, 18, 15, 3, 4, 16, 3, 13, 18, 16, 16, 19, 7, 16, 20, 

DATA 22, 0, 21,-1,-1,-1 

DATA 4, 19, 1, 1,4, 20, 81,7, 5, 19, 81,3, 5, 20, 13, 1,6, 19 
DATA 6, 20, 81,4, 7, 19, 81,5, 7, 20, 26, 1,8, 19, 9, 1,8, 20 
DATA 9, 19, 81,7, 9, £0, 14, 1, -1, -1, -1, -1 
DATA M,L, J, I, 0,-1, 1,0,-1,0,0, l' 


READY. 


, 14 
19 , 20 

, 1,1 
, 81,6 
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BONUS PROGRAM #2 

POISON IVY 

POISON IVY is a game that helps you learn how to get out 
of a variety of sticky situations in a hurry. You begin 
the game stuck in a POISON IVY patch. The only way out is 
to go all the way off the right side of the screen before 
the blooming POISON IVY traps you, making escape 
impossible. When you touch POISON IVY, you lose. Each 
time you make it to the right side of the screen, the game 
restarts, becomes harder, and puts you at. the left, side of 
the screen. You use joystick or keyboard to control your 
direcfcion. 


ADAM 

1 REM *** POISON IVY ADAM *** 

10 GOTO 3000 

199 RDM *** read keyboard routine *** 

200 xi = 0: yi = 0: li = 0 
210 GET ke$ 

220 IP ASC(ke$) = 160 THEN yi = -1 : RETURN 
230 IP ASC(ke$) = 161 THEN xi = 1 : RETURN 

240 IP ASC(ke$) = 162 THEN yi = 1 : RETURN 

250 IP ASC(ke$) = 163 THEN xi = -1 : RETURN 

399 REM *** draw ivy *** 

400 x = INT(RND(1)*39) 

410 y = INT(RND( 1 )*39) 

420 IP x = 0 AND y = 11 THEN 400 

430 IP x = 1 AND y = 11 THEN 400 

440 COLOR = 6 
450 PLOT x, y 
460 RETURN 

499 RPM *** main loop-draw player character *** 

500 co = 0: ro = 11: 1 = 0 

510 COLOR = 11 

520 PLOT co, ro 

530 IP 1 = 1 THEN 2000 

540 G0SUB 200 

550 ro = ro+yi: co = co+xi 

560 IP ro > 39 THEN ro = 39 

570 IP ro < 0 THEN ro = 0 

580 IP co < 0 THEN co = 0 

590 IP co > 39 THEN 1000 

600 IP SCRN(co, ro) = 6 THEN 1 = 1 

610 COLOR = 0 

620 PLOT co-xi, ro-yi 

630 x = x+1 

640 IP x/6 = INT(x/6) THEN G0SUB 400 
650 GOTO 510 

999 REM *** successfully completed maze *** 

1000 TEXT: HOME 

1010 FOR t = 1 TO 100 

1020 PRINT "YOU MADE IT! 

1040 NEXT t 
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1060 s = s+1: IF s > hs THEN hs = s 
1070 di = di+50 
1080 HOME 

1100 PRINT "Your score is: s 

1110 PRINT 

1120 PRINT "The high score is: hs 

1130 PRINT 
1140 GOTO 2080 

1999 REM *** lose game *** 

2000 TEXT: HOME 

2010 PRINT "YOU LOSE," 

2015 PRINT "You have POISON IVY!" 

2020 PRINT 

2030 PRINT "Your final score is: "; s 
2040 PRINT 

2050 PRINT "Your high score is: hs 

2060 PRINT 
2070 s = 0 

2080 PRINT "Press any key to play again. 
2110 GET durn$ 

2130 GOTO 3060 

2999 REM *** introduction *** 

3000 HOME 

3010 PRINT TAB(8); "POISON IVY!" 

3020 PRINT 

3030 PRINT "Press any key to begin." 

3040 GET n$ 

3049 REM *** display screen *** 

3050 di = 175 
3060 GR 

3070 FOR t = 1 TO di 
3080 GOSUB 400 
3090 NEXT t 
3100 GOTO 500 

Apple II and Apple lie 


1 F 

:EM 

*** 

POISON 

IVY APPLE *** 




10 

GOTO 

3000 





99 

REM 

** * 

JOYSTICK ROUTINE *** 




1.00 

IF 

PDL 

< 1) < 

64 'THEN YI = 

.... 

1: GOTO 150 

1 10 

IF 

PDL 

(1 ) > 

192 THEN YI = 

1; 

GOTO 

150 

120 

Yl = 

0 






150 

IF 

PDL 

(0) < 

64 THEN XI = 

- 

1: GOTO 190 

160 

IF 

PDL 

(0) > 

192 THEN XI = 

1. s 

GOTO 

190 

170 

XI - 

0 







190 LI == 0: RETURN 

199 REM *** READ KEYBOARD ROUTINE *** 

200 XI = O:YI = 0:LI = 0 

210 KE = PEEK < - 16384): POKE - 16368,0 
220 IF KE < 128 THEN GOTO 250 

230 IF CHRT- (KE - 128) = KTT- < LI) THEN YI = YT<LI) s XI = XT (LI): RETURN 
240 LI « LI + 1: IF LI < 8 THEN 230 
250 RETURN 

399 REM *** DRAW IVY ■*■** 

400 X = INT ( RND (0) * 39) 

41.0 Y = I NT < RND (1) * 47) 

420 IF X « 0 AND Y = 11 THEN 400 

430 IF X “ 1 AND Y ~ .1.1 THEN 400 
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440 C0L0R= 12 
450 F'LDT X , Y 
460 RETURN 

499 REM *** MAIN LOOP-DRAW PLAYER CHARACTER *** 

500 CO = 0:R0 = 11:L = 0 
510 COLOR— 11 

520 PLOT CO,RO 

530 IF L - 1 THEN 2000 

540 ON J GOSUB 100,200 

550 RO = RO + YI.-CO = CO + XI 

560 IF RO > 47 THEN RO = 47 

570 IF RO < O THEN RO = 0 

580 IF CO < O THEN CO - 0 

590 IF CO > 39 THEN 1000 

600 IF SCRN ( CO, RO) == 12 THEN L = 1 

610 COLOR— 0 

620 PLOT CO - XI,RO - YI 

630 X = : X + 1 

640 IF X / 6 - INT (X / 6) THEN GOSUB 400 
650 GOTO 510 

999 REM *** SUCCESSFULLY COMPLETED MAZE*** 

1000 TEXT : HOME 
1010 FOR T = 1 TO 100 
1020 PRINT "YOU MADE IT! 

1040 NEXT T 

1060 S * S + 1: IF s > HS THEN HS = S 
1070 DJ ~ DI + 50 
1080 HOME 

1100 PRINT "YOUR SCORE IS: "S 
1110 PR I NT- 

11 20 PRINT "THE HIGH SCORE IS: "HS 
1130 PRINT 
1140 GOTO 2080 

1999 REM *** LOSE GAME *** 

2000 TEXT : HOME 

2010 PRINT "YOU LOSE. YOU HAVE POISON IVY!" 

2020 PRINT 

2030 PRINT "YOUR FINAL SCORE IS: "S 

2040 PRINT 

2050 PRINT "THE HIGH SCORE IS: "HS 
2060 PRINT 

2070 S = 0 

2080 PRINT "PRESS ANY KEY TO PLAY AGAIN." 

2100 IF PEEK ( - 16368) > 127 THEN 2100 

2110 GET DUM* 

2130 HOME : RESTORE 
2140 GOTO 3150 

2999 REM *** INTRODUCTION *** 

3000 HOME 

3010 PRINT " ARE YOU USING A JOYSTICK <Y/N>?" 

3020 GET J* 

3030 IF J* = "Y" THEN J = 1: GOTO 3140 
3040 IF < > "Y" THEN J = 2 

3050 HOME 

3060 PRINT "THE MOTION KEYS ARE:" 

3070 PRINT 

3080 PRINT TAB< 6)"U I 0" 

3090 PRINT TAB( 6)"J L" 

3100 PRINT TAB( 6>"M 
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3110 PRINT 

3120 PRINT "PRESS ANY KEY TO JBE6IN. " 

3130 GET N* 

3140 DIM KTT(7),XT(7),YT(7):DI = 175 

3149 REM *** ENTER FULL LO-RES GRAPHICS SCREEN *** 

3150 GR : POKE - 16302,0: CALL - 1998 

3159 REM *** INITIALIZE DIRECTION VARIABLES *** 

3160 FOR I = 0 TO 7: READ KT$(I): NEXT 

3170 FOR I == 0 TO 7: READ XT (I): NEXT 

3180 FOR I = O TO 7: READ YT(I): NEXT 

3190 FOR T - 1 TO DI 

3200 GOSUB 400 
3210 NEXT T 
3220 GOTO 500 

5000 DATA L,□,I,U,J,M 

5010 DATA 0,1,1,1,0,-1,~1,-1 
5020 DATA 1,1,0,--1,-1,-1,0,1 

Atari 

t. REM *** POISON IVY ATARI *** 

1 0 D 1 M R$ ( 1.» , J :!•: ( 1 ) , J ( 10 ) , B < 10 ) , X T (10) , YT (10 > 

20 GOTO 3000 


99 f 

:EN 


JOYS 1 

l Ck 

ROU T" I 

ME *** 

j 0() 

i :i - 

0: Y I 

■-0: X I. 




1 10 

j v- 

S 1 IC 

< (0 > 




1 20 

1F 

J V-r.J 

(L I > 

THE 

N YI = v 

1 (!.. I ) : X I 

1 30 

L T •= 

1.... I +1 





140 

IF 

L. 1 < 8 

THEN 

12 

o 


150 

x i 

0 : YI 





160 

RET 

URN 





1 99 

REM 

-V: & 

KEY B 

.JAR 

D ROUT 

INE *** 


200 X I — O: V I —O: l_ I =0 
210 K-PEEK< 764) 

220 IF K-255 THEN 210 

230 IF K-B(LI) THEN V I^Y T<L I) ;X I = XT < LI)■RETURN 

240 L. I LI-i-l 

250 IF LI<8 THEN 230 

260 RETURN 

400 X — IN T < FIND •: 1 ) *40 > 

410 Y“INT'RMD(1)*24) 


420 

l F 

X ~ 

0 

AND Y== 

1. 1 THEN 

4:30 

IF 

X T~ 

1 

AND v- 

L1 1 HEN 

450 

L... U« \ 

PLOT 

X , 

Y 


460 

RET 

UR 

N 



499 

RET' 

* 

>>: ¥: 

M AIN 

...OOP.DR 

S'OO 

C0~ 

O: 

RO 

-1 1 .: L“‘ 

:> 

510 

H1« 

0» 

H2 

-11 


! : v?0 

COL 

OR 

0 



530 

FLO ! 

H ;l. 

, M2 


540 

COL 

OR 

1 



550 

PLC 

T 

r 0 

„ RO 


560 

IF 

L“ 

1 

THEN 2' 

_> 0 (! 

5 7 0 

1-1!. - 

CO 

; H 

2-RO 


580 

ON 

J 

GG 

SUB 10i 

•, 200 

590 

R0 : " 

RO 

+ Y 

I: CO~C( 

i -i- X I 

600 

IF 

RO 


3 THEN 

RO-23 

6 .1. 0 

IF 

RO 

■! 0 

THEN 


620 

IF 

CO 

< 0 

THEN 

20-Q 
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630 IF CO>39 THEN .1.000 
640 LOCATE CO,RO,C 
650 IF C=2 THEN L“1 
660 Z-I+l 

6 70 IF Z / 3“ I NT ( Z / 3) TH 
680 POKE 764,255 
690 GOTO 520 


YOU MADE 


THEN GOBUB 400 


999 F 

?EM *** i 

1000 

GRAPH 

IC 

:l 010 

FOR T 

= 1 

:i. 020 

PRINT 

II ' 

1030 

NEXT 

T 

1040 

PR I NT 

Cl 

1 050 

S--S+ I 

3 II 

1060 

D I ~ DI. 

+5> 

1070 

pr i n r 

'■ 

1080 

PRINT 


1090 

PR IN T 

ii - 

1 100 

PR I NT 


11 10 

GOTO 

20' 

1 999 

REM •**■* 

2000 

GRAPH 

r r 1 

.L 

2010 

PR IN T 

II ' 

2020 

PRINT 


2030 

PR IN T 

11 

2040 

PR I NT 


2050 

PRINT 

" 

2060 

PRINT 


2070 

B~0 


2090 

PR I NT 

'*! 

21OO 

GOSUB 

4' 

2 J. 1 0 

RESTORE 

2120 

PRINT 

Cl 

2130 

GO T O 

.!:> 1 

2999 

REM * 

* * 

3000 

PR I NT 

Cl 

3010 

PR I NT 

ii 

3020 

PRINT 

,! i 

3030 

INPUT 

J: 

3040 

IF J !• 

..... H ' 

3050 

IF 


3060 

PR IN T 

II 

3070 

PRINT 

II 

3080 

PR IN T 

II 

3090 

PR I NT 

II 

3100 

PR I N T 


31 10 

PR IN T 

"1 

3 1 20 

GOSUB 

4’ 

3 . 1 . 30 

PR IN T 


3159 

REM * 

* * 

3160 

DI ~ 12. 

U"; 

31 70 

GRAPH I (2 

3179 

REM **■* 

3.180 

FOP I 

Q 

3190 

FOR I 

==o 

3 200 

FOP I 


3210 

FOR I 

=0 

3220 

FOR r 

.... | 

• .i. 

. *•« . ’■« ■ 1 

GOSUB 

4' 


TOUR SCORE IS:";S 
THE HIGH SCORE IS: 


V OUR FIMAL SCORE IS: " ;• £ 
THE HIGH SCORE I'S:’';HS 


INTRODUCTION *** 


THEN J-1:GOTO 3130 
THEN J~2 


<RETURN> TO BEGIN. 


I NITIALIZE SCREEN AND SCORE VARIABLES 


.□AD MOTION ARRAYS *** 

' 0 7 :READ G:J CI>”6:NEX T I 
"0 7 s READ B : B (I > “B: NEX T I 
' O 7 sREAD X:X T (I)-X:NEXT I 
"O 7 :READ YsYT( I )=Y: NEXT I 
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3240 NEXT T 
3250 GOTO 500 
4000 INPUT RT 
4010 RETURN 

5000 DATA 1O,14,6,11,7,9,13,5 
5010 DATA 11,13,8,1,0,37,32,34 
5020 DAT A -1,0,1, 1 , 1 , - 1,0,1 

5030 DATA -1,-1,-1,O,0, 1 ,1,1 

Commodore 64 

1 REM *** POISON IVY £4 *** 

10 GOTO 3000 

99 REM *** JOYSTICK ROUTINE *** 

100 XI=0:YI=0:LI=0 
110 JV=PEEK(56321) 

120 JV=15-(JVAND15) 

130 IF JV=JS(LI)THEN YI=YT(LI) :XI=XT(LI>:RETURN 
140 LI=LI+1:IF LI<10 THEN 130 
150 XI=0:YI=0:RETU RN 

199 REM *** READ KEYBOARD ROUTINE *** 

200 XI=0:YI=0:LI=0 
210 GET KE$ 

£20 IF KE$=""THEN RETURN 

£30 IF KE$=KT$(LI> THEN YI=YT (LI):XI=XT(LI):RETURN 
£40 LI=LI+1:IFLI<8 THEN £30 
£50 RETURN 

399 REM *** DRAW IVY *** 

400 X=INT(RND(0)*39) 

410 Y=INT(RND(1)*25) 

420 IF X—0 AND Y=11 THEN 400 
430 IF X=1 AND Y=11 THEN 400 
440 POKE SB+X+40*Y,88 
450 POKE CB+X+40*Y,5 
460 RETURN 

499 REM *** MAIN LOOP-DRAW PLAYER CHARACTER *** 

500 CO=0:RO=11:L=0 

510 POKE CB+H1+40*H2,11 

520 POKE CB+CO+40*RO,0 

530 POKE SB+CO+40*RO,86 

540 IF L=1 THEN £000 

550 H1=C0:H£=RQ 

560 ON J GOSUB 100,200 

570 RO=RO+YI:CO=CO+XI 

580 IF R0> 24 THEN R0=£4 

590 IF RO <0 THEN RO=0 

600 IF CO<0 THEN CO=0 

610 IF C0> 39 THEN 1000 

620 IF PEEK(SB+CO+40*RO)=88 THEN L=1 

£30 X-X+l 

640 IF X/6=INT(X/6)THEN GOSUB 400 
£50 GOTO 510 

999 REM *** SUCCESSFULLY COMPLETED MAZE *** 

1000 PRINT CHR$(147) 

1010 FOR T=1 TO 100 

1020 PRINT "YOU MADE IT! "; 

1030 POKE 53280,INT(RND(1)*16)+1 
1050 NEXT T 

1060 S=S+1:IF S> HS THEN HS=S 
1070 DI=DI+50 
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1080 PRINT CHR*(147) 

1030 POKE 53281,11 

1100 PRINT "YOUR SCORE IS:"S 

1110 PRINT 

1120 PRINT "THE HIGH SCORE IS:"HS 

1130 PRINT 

1140 GOTO 2080 

1339 REM *** LOSE GAME *** 

2000 PRINT CHR$(147) 

2010 PRINT "YOU LOSE, YOU HAVE POISON IVY!" 

2020 PRINT 

2030 PRINT "YOUR FINAL SCORE IS:"S 
2040 PRINT 

2050 PRINT "THE HIGH SCORE IS:"HS 
2060 PRINT 
2070 S=0 

2080 PRINT "PRESS (SHIFT) TO PLAY AGAIN." 

2090 GOSUB 4000 
2100 RESTORE 
2110 GET DUM$ 

2120 IF DUM$ <>""THEN 2110 
2130 PRINT CHR$(147) 

2140 GOTO 3170 

2939 REM *** INTRODUCTION *** 

3000 PRINT CHR$(147) 

3010 PRINT " ARE YOU USING A JOYSTICK (Y/N)?" 

3020 GET J$:IF J$=""THEN 3020 
3030 IF J$="Y"THEN J=1:G0T0 314® 

3040 IF J$<)"Y"THEN J=2 
3050 PRINT CHR$(147) 

3060 PRINT "THE MOTION KEYS ARE:" 

3070 PRINT 

3080 PRINT TAB(6) "U I 0" 

3030 PRINT TAB(6)"J L" 

3100 PRINT TAB(6)"M , 

3110 PRINT 

3120 PRINT "PLEASE PRESS (SHIFT) TO BEGIN." 

3130 GOSUB 4000 
3140 PRINT CHR$(147) 

3159 REM *** INITIALIZE SCREEN AND SCORE VARIABLES *** 

3160 SB=1024:CB=55296:D1=125 

3170 POKE 53280,9:P0KE 53281,11:POKE650, 128 

3179 REM *** INITIALIZE DIRECTION ARRAYS *** 

3180 FOR 1=0 TO 7:READ KT$(I):NEXT 
3190 FOR 1=0 TO 7:READ XT(I):NEXT 
3200 FOR 1=0 TO 7:READ YT(I):NEX7 
3210 FOR 1=0 TO 7:READ JS(I):NEXT 
3220 FOR T=1 TO DI 

323® GOSUB 400 
3240 NEXT T 
3250 GOTO 500 

3399 REM *** WAIT ROUTINE *** 

4000 WAIT 653,1 
4010 WAIT 653,1,1 
4020 RETURN 

5000 DATA ”,L,0, I, U,J,M 

5010 DATA 0, 1, 1, 1,0,-1,-1,-1 
5020 DATA 1, 1, @,-1,-1,-1, 0, 1 
5030 DATA 2,10,8,9,1,5,4,6 
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IBM PC 

10 REM *** F'O I SON IVY IBM-PC *** 

20 KEY OFF 
30 GOTO 680 

40 REM *** READ KEYBOARD ROUTINE *** 

50 LI =0! X. I =0: Y I =0 
60 KE$=INKEY$ 

70 IF KE:t ; ="" THEN RETURN 

80 IF KE$~~KT$ (L.I) THEN YI=YT(LI>:XI = XT(LI): RETURN 
90 LI =-LI +1: IF LI<8 THEN 80 
100 RETURN 

110 REM **•* DRAW POISON IVY *** 

120 X = I NT(RND(1)*7 9)+1 

130 Y"INT(RND<1)*24)+1 

140 IF X=1 AND Y~11 THEN 120 

150 IF X=2 AND Y=ll THEN 120 

160 LOCATE;. V , X,U 

170 PRINT CHR'T (5) ; 

180 RETURN 

190 CO-1:R0~11:L=0:H1=11:H2=1 
200 LOCATE HI,H2,0 
210 PRINT CHRTC32.); 


20 

LOCATE 

RO, C 

30 

PR 

I NT 

CHR t- ( 

40 

H 1 

=R0: 

H2=C0 

50 

IF 

L --1 

THEN 

60 

GOSUB 

50 


2 70 R O=R 0+ Y I: C 0=C O + X I 
280 IF RO>24 THEN R0=24 
290 IF ROC 1 THEN R0=1 
300 IF C0<1 THEN C0=1 
310 IF CO.>79 THEN 380 
320 ONSCREEN(RO,CO> 

330 IF 0=5 THEN L=i 
340 X = X+:l. 

350 IF X / 6 = IN T' (X / 6 > THEN GOSUB 120 
360 GOTO 200 

370 REM *** SUCCESSFULLY COMPLETED MAZE *** 
380 CLS 

390 FOR 1=1 TO 30 

400 PRINT TAB(33);"YOU MADE IT!!!" 

410 NEXT T 
420 S--S+1 

430 IF S>HS THEN HS=S 
440 DI-DI+50 
450 CLS 

460 PRINT "YOUR SCORE IS: ";S 
470 PRINT 

480 PRINT "THE HIGH SCORE IS:";MS 
490 PRINT 
500 GOTO 600 

510 REM *** LOSE GAME **■* 

520 CLS 

530 PRINT "YOU HAVE POISON IVY! YOU LOSE." 
540 PR INI 

550 PRINT "YOUR FINAL SCORE IS:" 5 S 
560 PRINT 

570 PR I NT "THE HIGH SCORE IS:"; ITS_ 
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580 

PRINT 



590 

8=0 



600 

PRINT " 

PRESS < ENTER > TO PLAY AGAIN. " 

6 1 0 

GOSUB loot: 

) 

620 

RESTORE 



630 

DUM$= 1NKE"' 

4 

6 '•{• 0 

IF DU Ml 

< > 11 " THEN 630 

650 

C LB 



660 

GOTO 800 


670 

REN *** 

INTRODUCTION ** * 

6oU 

SCREEN 

0, (. 

1,0: WIDTH 80 

690 

CLS 



700 

PRINT " 

THE 

: DIRECTION KEYS ARE:" 

710 

PR I m 



720 

PRINT " 


U I 0" 

730 

PRINT " 


3 L" 

7 40 

PRINT " 


N 

750 

PR I NT 



760 

PRINT " 

PR E S S <E NTER> T0 BE 61N. ' 1 

770 

GOSUB 1 

( )i)( 


780 

CLS 



790 

DI = 1 25 



900 

FOR I "7 

it 

) 7 : READ T.Tf CD: NEXT I 

8 1 0 

FOR I “C 

it 

j 7; READ XT ( I);NEXT I 

820 

FOR 1=0 

rt 

) 7 sREAD Y'T< I ) ; NEXT I 

830 

FOR 7=1 

it 

t d:i. 

840 

GOSUB 1 

20 


950 

NEXT I 



860 

GOTO 19 

0 


1 00 

R ~ 1 NT 

E Y i 


101 

if r$< 

>CHR$ : (. 13) THEN 1000 

102 

•J RETURN 



2000 DOT' A " 

!> 

'! > 

" . , L. , 0, I , U , J , M 

20 1 

"j DATA 0 

, 1 

1,1,0 , - 1 , . 1 , •- 1 

202 

3 DATA 1 


o , . 1 , - I , ■" I ,0,1 

TI-99/4A 



J. R 

EM 

PO .1 

SON IVY II99/4A *•*•* 

10 

3010 960 



19 

■ ; :EI7 *+*• 

3 1 

i Y S 1 ICK ROUTINE *** 

20 

3ALL JOY 

S 1 

1 „ M , N ) 

40 

■i I •=(.' 



50 

... .1 > 



60 

IF MOD 

L i:) 

1 HEN 70 ELSE 110 

? 0 

IF N=kl ( 

L I J 

THEN 80 ELSE i10 

0t . 

X .1. X 1 «. !.. j. 

) 


Q O 

/].--• x v i. L. :i. 

i 


:! OO 

RE 1 URN 



110 

1.1=1. H .! 



120 

IF LI ;. 8 

! 7 

IEN 60 

130 

.< 1 -o 



140 

V L ~0 



150 

RET URN 



160 

a i —0 



.1. 6 V 

REN ** 

* j- 

E v b 0 1 R D 19 U1 j T J. M E * * * 

1 70 

Y .1. -0 



180 

L .1. =0 



190 

CALL. KE 

r V : 

■ , K T 
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200 1 = 1+1 

210 IF Z/2=INT(Z/2)THEN 220 ELSE 230 

220 GOSUB 330 

230 IF P-0 THEN 190 

240 IF K=B <L.I) THEN 250 ELSE 280 

250 XI-XT(LI) 

260 YI-XY(LI) 

270 RETURN 

280 LI=I_I + 1 

290 IF LI<8 THEM 240 

300 X I=0 

310 V I=0 

320 RETURN 

329 REM *** DR'AW IVY ROUT INE 

330 C--INT <RN0*32> +1 
340 R—INI <RND*24)+1 

350 IF R= 12 THEN 360 ELSE 370 
360 IF 0=3 THEN 330 
370 CALL HCHAR(R,C,136) 

380 RETURN 

389 REM *** MAIN LOOP/DRAW PLAYER *** 

390 HI=12 
400 H2=3 
410 R0=12 
420 CO-3 
430 L=0 

440 CALL HCHAR(H1,H2,128> 

450 CALL HCHAR(RO,CO,120) 

460 IF L=I THEN 830 
470 H1-RO 
480 H2--C0 
490 2~I+l 

500 ON •) GOSUB 20,160 
510 RO=RO+XI 
520 CO=CO+YI 

529 REM *** DEFINE BOUNDARIES *** 

530 IF ROC 1 THEN 540 ELSE 550 
540 RO-1. 

550 IF RO>24 THEM 560 ELSE 570 
560 RO=24 

570 IF COT2 THEN 580 ELSE 590 
580 C0=2. 

590 IF CO>32 THEN 660 
600 CALL. GGHAR (RO , CO , D ) 

610 IF D= 136 THEN. 620 EI..SE &30 
620 L=1 

630 IF Z / 4= INT" ( Z/4 ) THEN 640 ELSE 650 
640 BOSLID 330 
650 GO IO 440 

659 REN *** COMPLETED MAZE *•** 

660 CALL SCREEN(12) 

6 70 CALL Cl .EAR 

680 FOR |=1 TO 25 

690 PRINT " YOU MADE Ilf!!" 

700 PRINT 
710 NEXT I 
720 S=S+1 
730 DI-D.I + 35 

740 IF S/MS THEN 750 ELSE 760 
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HS=S 

PRINT 

PRINT “VOUR SCORE IS:";S 
PRINT 

PRINT "THE HIGH SCORE IS:";HS 

PRINT 

GOTO 910 

REM *** LOSE ROUTINE **•* 

CALL SCREEN(? > 

CALL CLEAR 

PRINT "YOU HAVE POISON IVY." 

PR IN i' 

PRINT "YOUR FINAL SCORE IS:";S 
PRINT 

PRINT "THE HIGH SCORE IS:”;HS 

S“0 

PR IN I 

PRINT "PRESS (ENTER) TO PLAY AGAIN." 


930 

GOSUB 1 

380 




940 

RES T ORE 





950 

GOTO 11 

? 0 




959 

REM ■■***• INiRGDUC 

T I ON 

*• * •* 

960 

CALL.. CL 

EAR 




9 7 0 

PRINT " 

T Y PE 

Y OUR 

ANSWER" 

980 

PRINT " 

THEN 

PRESS 

(ENTER)." 

990 

PRINT 





1000 

PR IN 1 

" ARE 

YOU L 

SI NO 

A JOYSTICK"; 

1010 

INPU 1 

j i 




1020 

IF BEG 


1 , i ) = 

> t ... M 

V 

THEN 1030 ELS 

.t 030 

J = :l. 





:i. 040 

60 10 1 . 

120 




1050 

J ~2 





J. 060 

CALL C 

LEAR 




10 70 

PR IN r 

" 1 HE 

DIREC 

I I ON 

KEYS ARE:" 

1080 

PR I NT 





1090 

PR IN T 

TAB (7 

) ; "U 

1 

0 " 

1 100 

PRINT 

TAB (7 

) 5 " J 


L" 

1 110 

PR IN r 

T AB (. 7 

) ; " i v l 


if 

1120 

F’R 1. MI 





i 130 

FF: IN T 

" PRES 

5 (ENTER) 

TO BEGIN. " 

11 4C 

PRINT 





115C 

60 SUB 

1 -580 




1159 

REM * 

•X* If- 

I T I Ml. 

I ZE 

VARIABLES AND 

116 C 

DI “ 7 5 





11 70 

CALL 3 

GREET 

( 2 > 



:i i sc 

CAL.!.... C 

LEAF: 




1 1 9C 

FOR .!> 

0 i 0 

7 




1200 READ XY (I . 1 
1.210 READ X ! (I .■ 

1220 READ j 1 < J. i 
1250 READ K1(f) 

1240 READ B ( i .i 
i250 NEXT l 
1260 RANDOM I ZE. 

1269 REM *■*■* DEFINE CHARACTERS *** 
:l 270 A $ = "F.FFf :: PFFFFFFFFFFF " 

1280 BT- -" 12945S339C5o33 1C " 

12 '/■ ■call char ( 12 S, A '£> 
j. 50’ > cai i... ci Tar (l T 6 , &■$ > 
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:i 3 1 o 

CALL COLOR(13,2,2) 

1320 

CALL COLO 

R<14,3,1) 

1330 

CALL COLO 

R(12,10,1> 

1 340 

FOR 1=1 T 

0 D I 

1350 

GOSUB 330 


1 360 

NEXT T 


1370 

GOTO 390 


1380 

INPUT RT 


1390 

RETURN 


1400 

DArA -1 ,. 

1,-4,4,85 

1410 

DATA 0,-1 

, O , 4 , / 6 

1420 

DATA 1,-1 

,4,4,79 

1430 

DATA -1,0 

, '■ 4 , O , / 4 

1440 

DA 1A 1,0„ 

4,0,76 

1450 

DAfA — 1,1 

*t 4 * n / •' 

1460 

DA l i t 0 , .1. , 

0,-4,44 

1470 

DATA 1,1, 

4,-4,46 


TRS-80 Color Computer 

1 REM *** POISON IVY TRS-80 COLOR *** 

10 GOTO 3000 

99 REM *** JOYSTICK ROUTINE *** 

100 H=J0YSTK(0) 

110 V=JOYSTK(l) 

120 IF H <15 THEN YI=0:X I=-1:RETURN 
130 IF H> 47 THEN YI=0:X1 = 1:RETURN 
140 IF V <15 THEN X I=0:YI=-l:RETURN 
150 IF V> 47 THEN X1=0:YI=1:RETURN 
160 YI=0:X1=0:RETURN 

199 REM *** READ KEYBOARD ROUTUINE *** 

£00 LI=0:XI=0:YI=0 
£10 KE*=INKEY$ 

££0 IF KE$="" THEN RETURN 

£30 IF KE$=KT$(LI) THEN YI=YT(LI) :X I = XT(LI) :RETURN 
£40 LI=LI+1:IF LI<8 THEN £30 
£50 RETURN 

399 REM *** DRAW IVY (CAN YOU BElIEVE IT?) *** 

400 X=RND(510) 

410 IF X=££4 THEN 400 
4£0 C=l£8+16*(0)+15 
430 PRINT0X,CHR$(C); 

440 RETURN 

499 REM *** MAIN LOOP *** 

500 CQ=0:RO=14:L=0 
510 SET (CO, RO, 5) 

5£0 IF L=1 THEN £000 
530 FOR D=1 TO £ 

540 NEXT D 

550 RESET(CO,RO) 

560 ON J GOSUB 100,£80 

578 RO=RO+YI:CO=CQ+XI 

580 IF RO> 31 THEN RO=31 

590 IF RO= <0 THEN RO=0 

600 IF CO<0 THEN CO=8 

610 IF CO)63 THEN 1008 

6£0 IF POINT(CO,RO)=l THEN L=1 

630 X=X+1 

640 IF X/6=INT(X/6) THEN GCSUB 488 
658 GOTO 510 
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999 REM *** COMPLETED MAZE *** 

1000 CLS 

1010 FOR T=1 TO 100 

1020 PRINT "YOU MADE IT! "; 

1030 FOR D=1 TO 10 
1040 NEXT D 
1050 NEXT T 
1060 CLS:S=S+1 

1070 PRINT "YOUR SCORE IS:"S 
1080 PRINT 

1090 IF S> HS THEN HS=S 

1100 PRINT "THE HIGH SCORE IS:"HS 

1110 DI=DI+20 

1120 PRINT 

1130 GOTO 2080 

1999 REM *** YOU LOSE *** 

2000 CLS 

2010 PRINT "YOU LOSE, YOU HOVE POISON IVY." 

2020 PRINT 

2030 PRINT "YOUR FINAL SCORE IS:"S 
2040 PRINT 

2050 PRINT "THE HIGH SCORE IS:"HS 
2060 PRINT 
2070 S=0 

2080 PRINT "PRESS (ENTER) TO PLOY AGAIN." 

2090 GOSUB 4000 
2100 RESTORE 
2110 DUM*=INKEY* 

2120 IF DUM* <>"" THEN 2110 
2130 CLS(0) 

2140 GOTO 3160 

2999 REM *** INTRODUCTION *** 

3000 CLS 

3010 PRINT "ARE YOU USING A JOYSTICK (Y/N)?" 

3020 J*=INKEY*: IF J*="" THEN 3020 
3030 IF J*="Y" THEN J=1:G070 3140 
3040 IF J*<> "Y" THEN J=2 
3050 CLS 

3060 PRINT "THE DIRECTION KEYS ORE:" 

3070 PRINT 

3080 PRINT "U I 0" 

3090 PRINT "J L" 

3100 PRINT "M , 

3110 PRINT 

3120 PRINT "PRESS (ENTER) TO BEGIN." 

3130 GOSUB 4000 
3140 CLS(0) 

3150 DI=50 

3159 REM *** LOAD DIRECTION VARIABLES *** 

3160 FOR 1=0 TO 7:READ KT*(I):NEXT 
3170 FOR 1=0 TO 7:READ XT(I):NEXT 
3180 FOR 1=0 TO 7:READ YT(I):NEXT 
3190 FOR T=i TO DI 

3200 GOSUB 400 
3210 NEXT T 
3220 GOTO 500 

3999 REM -*** NO IT ROUTINE *** 

4000 INPUT R* 

4010 RETURN 
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5000 DATA ", L, 0, I, U, J, M 

5010 DATA 0, 1, 1, 1, 0,-1,-1,-1 
5020 DATA 1, 1,0,-1,-1,-1,0, 1 

TRS-80 Model III and Model 4 

1 REM *** POISON IVY TRS-BO MODELS 3 AND 4 CASS. AND MODEL 3 DISK BASIC *** 
10 GOTO 3000 

199 REM *** READ KEYBOARD ROUTINE *** 

200 li=o: xi=o: yi=o 

210 KE*=INKEY$ 

220 IF KE$=“" THEN RETURN 

230 IF KE*=KT$(LI) THEN YI=YT (LI):XI = XT(LI):RETURN 
240 LI=LI + l:IF LI<8 THEN 230 
250 RETURN 

399 REM *** DRAW IVY *** 

400 X=RND(1022) 

410 IF X=512 THEN 400 
430 PRINTiiX,CHR*(191) ; 

440 RETURN 

499 REM ***, MAIN LOOP *** 

500 C0=0:R0=25:L=0 
510 SET(CO,RO) 

520 FOR D=1 TO 2 
530 NEXT D 

540 IF L=1 THEN 2000 
550 RESET(CO,RO) 

560 GOSUB 200 

570 RO=RO+YI:CO=CO+XI 

580 IF R0>47 THEN R0=47 

590 IF ROC0 THEN R0=0 

600 IF C0<0 THEN C0=0 

610 IF CO>127 THEN 1000 

620 IF POINT(CO,RO) THEN L=1 

630 X = X+1 

640 IF X/6=INT(X/6) THEN GOSUB 400 
650 GOTO 510 

999 REM *** COMPLETED MAZE *** 

1000 CL.S 

1010 FOR T=1 TO 100 

1020 PRINT "YOU MADE IT! "; 

1030 FOR D=1 TO 10 
1040 NEXT D 
1050 NEXT T 
1060 CLS:S=S+1 

1070 PRINT "YOUR SCORE IS: "S 
1080 PRINT 

1090 IF S>HS THEN HS=S 

1100 PRINT "THE HIGH SCORE IS:"HS 

1110 DI=DI+50 

1120 PRINT 

1130 GOTO 2080 

1999 REM *** YOU GET THE ITCHES *** 

2000 CLS 

2010 PRINT "YOU LOSE! YOU HAVE POISON IVY!!!" 

2020 PRINT 

2030 PRINT "YOUR FINAL SCORE IS:"S 
2040 PRINT 

2050 PRINT "THE HIGH SCORE IS:"HS 
2060 PRINT 
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2070 S=0 


2000 
2090 
2100 
2110 
2120 

2999 

3000 
3060 
3070 
3000 
3090 
3100 
3110 
3120 
3130 
3140 
3150 

3159 

3160 
3170 
3100 
3190 
3200 
3210 
3220 

3999 

4000 
4010 
5000 
5010 
5020 


PRINT "PRESS (ENTER) 
GOSUB 4000 
RESTORE 
CLS 

GOTO 3160 

REN *** INTRODUCTION 
CLS 

PRINT "THE DIRECTION 
PRINT 

PRINT TAB(7)"U I 
PRINT TAB(7)"J 
PRINT TAB (7) "M 
PRINT 

PRINT "PRESS (ENTER) 

GOSUB 4000 

CLS 


TO PLAY AGAIN."; 




KEYS ARE:" 


0" 

L" 


TO BEGIN. 


DI=100 

REM *** LOAD DIRECTION VARIABLES *** 

FOR 1=0 TO 7: READ KT3> < I) : NEXT 

FOR 1=0 TO 7:READ XT(I):NEXT 

FOR 1=0 TO 7:READ YT(I):NEXT 

FOR T=1 TO DI 

GOSUB 400 

NEXT T 

GOTO 500 

REM *** WAIT ROUTINE *** 

INPUT R* 

RETURN 

DATA L,O,I,U, J, M 

DATA 0,2,2,2,0,-2,-2,-2 
DATA 2,2,0,-2,-2,-2,0,2 


VIC-20 

1 REM *** POISON IVY VIC-20 *** 

10 GOTO 3000 

99 REM *** JOYSTICK ROUTINE *** 

100 POKE 37154,127 

110 XT*=PEEK(37152)AND 128 

120 POKE 37154,255 

130 XT%=XT% OR (PEEK(37137)AND127) 

140 XI =SGN ( XT'/.AND 128) -SGN ( XTtfAND16) 

150 YI=SGN(XT%AND8)-SGN(XTSAND4) 

160 RETURN 

199 REM *** READ KEYBOARD ROUTINE *** 

200 X1=0:Y1=0:L1=0 
210 GET KE* 

220 IF KE$=""THEN RETURN 

230 IF KE*=KT*(LI) THEN YI=YT (LI ):XI=XT(LI):RETURN 
240 LI=LI+1:IFLI<8 THEN 230 
250 RETURN 

399 REM *** DRAW IVY *** 

400 X=INT(RND(1)*22) 

410 Y=INT(RND(1)*23) 

420 IF X=0 AND Y=11 THEN 400 
430 IF X=1 AND Y=11 THEN 400 
440 POKE SB+X+22*Y.88 
450 POKE CB+X+22*Y, 5 
460 RETURN 
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499 REM *** MAIN LOOP *** 

500 CO=0:RO=llsL=0 
510 POKE CB+H1+££*H£, 0 
5£0 POKE CB+CO+££*RO, 1 
530 POKE SB+C0+£2*R0,43 
540 IF L=1 THEN £000 
550 Hl=CO:H£=RO 

560 ON J GOSUB 100,£00 
570 RO=RO-YI:CO=CO-XI 
580 IF RO> ££ THEN RO=££ 

590 IF RO <0 THEN RO=0 

600 IF CO<0 THEN CO=0 

610 IF CO> £1 THEN 1000 

6£0 IF PEEK(SB+CO+££*RO)=88 THEN L=1 

630 X=X+1 

640 IF X/6=INT(X/6)THEN GOSUB 400 
650 GOTO 510 

999 REM *** COMPLETED MAZE *** 

1000 PRINT CHR$(147) 

1010 FOR T=1 TO 100 

10£0 PRINT "YOU MODE IT! "; 

1030 POKE 36879,INT(RND(1)*7)+7 
1050 NEXT T 
1060 S=S+1 

1070 IF S> HS THEN HS=S 

1080 DI=DI+50 

1090 PRINT CHR$ <147) 

1100 POKE 36879,£3£ 

1110 PRINT "YOUR SCORE IS:"S 
11£0 PRINT 

1130 PRINT "THE HIGH SCORE IS:"HS 

1140 PRINT 

1150 GOTO £080 

1999 REM *** LOSE GAME *** 


£000 

£010 

£ 0£0 

£030 

£040 

£050 

£060 

£070 

£080 

£090 

£100 

£110 

£ 1£0 

£130 

£140 

£299 

3000 

3010 

30£0 

3030 

3040 

3050 

3060 

3070 

3080 


PRINT CHR$ <147) 

PRINT "YOU HAVE POISON IVY!" 
PRINT 

PRINT "YOUR FINAL SCORE IS:"3 
PRINT 

PRINT "THE HIGH SCORE IS:"HS 

PRINT 

S=0 

PRINT "(SHIFT) TO PLAY AGAIN" 
GOSUB 4000 
RESTORE 
GET DUM$ 

IF DUM*<>""THEN £110 
PRINT CHR$(147) 

GOTO 3170 

REM *** INTRODUCTION *** 

PRINT CHR$(147) 

PRINT "USING A JOYSTICK (Y/N)" 
GET J$:IF J$=""THEN 30£0 
IF J$="Y"THEN J=1:GOTO 3140 
IF J$ <>"Y"THEN J=£ 

PRINT CHR$(147) 

PRINT "THE MOTION KEYS ARE:" 
PRINT 

PRINT "U I 0" 
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30S0 PRINT "J L" 

3100 PRINT "M , 

3110 PRINT 

3120 PRINT "PRESS (SHIFT) TO BEGIN" 

3130 GOSUB 4000 
3140 PRINT CHR»(147) 

3159 REM *** INITIALIZE SCREEN AND SCORE VARIABLES *** 

3160 SB=76Q0:CB=38400iDI=100 
3170 POKE 36879,9:P0KE 650,128 

3179 REM *** LOAD DIRECTION VARIABLES *** 

3180 FOR 1=0 TO 7:READ KT$(I):NEXT 
3190 FOR 1=0 TO 7:READ XT(I):NEXT 
3200 FOR 1=0 TO 7:READ YT(I):NEXT 
3220 FOR T=1 TO DI 

3230 GOSUB 400 
3240 NEXT T 
3250 GOTO 500 

3999 REM *** WAIT ROUTINE *** 

4000 WAIT 653,1 
4010 WAIT 653, 1, 1 
4020 RETURN 

5000 DATA I, u, J,M, ", ", ",L, 0 

5010 DATA 0, 1, 1, 1,0,-1,-1,-1 
5020 DATA 1, 1,0, -i, -1,-1, 0, 1 
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BONUS PROGRAM #3 

WORD SCRAMBLE 

WORD SCRAMBLE is something like computer alphabet soup, 
Duons? No, u.h. . . nsoud? No, oh' Sound! You got it and 
you'll get 'em all when you. sink your mind into WORD 
SCRAMBLER,. This mind teaser shows you a line of mixed up 
letters that you have to make a wrad...uh.,.word out of. 
Each time you. guess a letter's correct location, the 
computer prints a "l" underneath it. By using clues, 
you'll solve even the m o s t c h a 11 e n g i n g w o r d s,. E a c h t i m e 
you correctly pick the entire word, the computer shows you 
how many tries it took you to get it. To skip a word, 
type "N" and then hit ENTER or RETURN., 


ADAM 

1 REM *** WORD SCRAMBLE ADAM *** 

10 HOME 

20 PRINT "WORD SCRAMBLE" 

30 PRINT 

40 PRINT "Try to unscramble words by" 

45 PRINT "typing in guesses. The" 

50 PRINT "computer will show you which" 
60 PRINT "letters are in the correct" 

65 PRINT "places." 

70 PRINT "Use only CAPITALS!" 

80 PRINT "Example: The computer prints:" 
85 PRINT "SUEG8" 

90 PRINT "The actual word is GUESS." 

100 PRINT "If you type: GEUSS, the" 

105 PRINT "computer will respond with" 

110 PRINT "'10011', meaning the first," 
120 PRINT "fourth, and fifth letters" 

130 PRINT "are in the correct locations." 
140 PRINT 

150 PRINT "Press any key to continue." 

160 GET n$ 

170 u$ = "" 

179 REM *** read scrambled word *** 

180 READ w$ 

190 IP w$ = "0" THEN RUN 

199 REM *** read actual word *** 

200 FOR x = 1 TO LEN(w$) 

210 READ ch(x) 

220 u$ = u$+CHR$(ch(x)) 

230 NEXT x 
240 g = 1 
250 HOME 

260 PRINT "Press 'N' then (RETURN) for" 
265 PRINT "a new word." 

269 REM *** guess loop *** 

270 PRINT 

280 PRINT "The scrambled word is:" 
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290 

PRINT 




300 

PRINT 

" " ; w$ 



310 

PRINT 




320 

r = 0 

"Type your guess, the (RETURN)." 



330 

PRINT 



340 

PRINT 




350 

INPUT 

g$ 



360 

IP g$ 

= "N" THEN 170 



370 

IP LEN(g$) > LEN(w$) THEN PRINT "Guess too long!": GOTO 280 


380 

IP LEN(g$) < LEN(w$ ) THEN PRINT "Guess too short!": GOTO 

280 


390 

PRINT 

II II . 



400 

FOR x 

= 1 TO LEN (w$) 



410 

IP MID$(g$, x, 1) = MID$(u$, x, 1) THEN GOSUB 480 



420 

IP MID$(g$, x, 1) <> MID$(u$, x, 1) THEN GOSUB 510 



430 

NEXT x 




440 

PRINT 

LEN ( g$ ) THEN 530 



450 

IP r = 



460 

g = g+1 



470 

GOTO 310 



479 

REM *** correct letter routine *** 



480 

PRINT 

II 1 *1 . 

1 9 



490 

r = r+1 



500 

RETURN 




509 

REM *** incorrect letter routine *** 



510 

PRINT 

"0"; 



520 

RETURN 




530 

HOME 

"You got it in g; " turn(s)!" 



540 

PRINT 



550 

PRINT 




560 

PRINT 

"Press any key to play again." 



570 

GET n$ 




580 

GOTO 1 

70 



•1000 

DATA 

LETCICER,69,76,69,67,84,82,73,67,SGEAROOUUT,79,85,84 

,82,65 

9 

71 ,69,79 




101 0 

DATA 

85,83,ACTANPEU0L,67,65,78,84,65,76,79,85,80,69 



1020 

DATA 

LABTEKSABL,66,65,83,75,69,84,66,65,76,76 



1030 

DATA 

TANIRUC,67,85,82,84,65,73,78,TAMELPAC,80,76,65,67,69 

,77,65 

00 

1040 

DATA 

ONUSHCI,67,85,83,72,73,79,78,WOLCRADY,67,79,87,65,82 

,68,76 

,89 

1050 

DATA 

DELIS,83,76,73,68,69,TARIUG,71,85,73,84,65,82,OWELT, 

84,79, 

00 

-4 

69,76 




1060 

DATA 

MUTES0C,67,79,83,84,85,77,69,Y0G0ILB,66,73,79,76,79, 

71 ,89 


1070 

DATA 

ACRTEP,67,65,82,80,69,84 , ARERES,69,82,65,83,69,82 



1080 

DATA 

ELTKET,75,69,84,84,76,69 , REUICTP,80,73,67,84,85 ,82,69 


1090 

DATA 

IISGNYF,83,73,71,78,73,70,89 , ORDAI,82,65,68,73,79 



1100 

DATA 

ZEERPAT,84,82,65,80,69 , 90,6 9 , 0 



Apple II and Apple lie 



1 REM *** 

WORD SCRAMBLE APPLE *••*■■* 



.1 0 

HOME 




20 

PRINT ' 

WORD SCRAMBLE" 



30 

°R I NT 




40 

PRINT " 

TRY TO UNSCRAMBLE WORDS BY TYPING" 



50 

PRINT 1 

IN GUESSES. THE COMPUTER WILL SHOW YOU" 



60 

PRINT " 

WHICH LETTERS ARE IN THE CORRECT PLACES. " 



70 

PR I NT 




80 

PRINT " 

EXAMPLE: THE COMPUTER PRINTS : SUEGS" 



90 

PRINT ' 

THE ACTUAL WORD IS GUESS." 



1 00 

PRINT 

"IF YOU TYPE: GEUSS, THE COMPUTER WILL" 
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110 PRINT "RESPOND WITH '10011', MEANING THE" 

120 PRINT "FIRST, FOURTH, AND FIFTH LETTERS ARE" 

130 PRINT "IN THE CORRECT LOCATIONS." 

140 PRINT 

150 PRINT "PRESS ANY KEY TO CONTINUE." 

160 GET N* 

170 U* = "" 

179 REM *** READ SCRAMBLED WORD *** 

180 READ W* 

190 IF W* = "O" THEN RUN 

199 REM *** READ ACTUAL WORD *** 

200 FOR X = 1 TO LEN iW*) 

210 READ CH(X) 

220 U* - U* + CHR* (CH(X)) 

230 NEXT X 
240 G = 1 
250 HOME 

260 PRINT "PRESS 'N' THEN (RETURN) FOR A NEW WORD" 

269 REM *•** GUESS LOOP *** 

270 PR I NT 

280 PRINT "THE SCRAMBLED WORD IS:" 

290 PRINT 

300 PRINT " "W* 

310 PRINT 
320 R = 0 

330 PRINT "TYPE YOUR GUESS, THEN PRESS (RETURN)." 

340 PRINT 
350 INPUT G* 

360 IF 8$ = "N" THEN 170 

370 IF LEN <G*> > LEN (W*) THEN PRINT "GUESS TOO LONG!": GOTO 280 

380 IF LEN (G*) < LEN (W*) THEN PRINT "GUESS TOO SHORT!": GOTO 280 

390 PRINT " "; 

400 FOR X = 1 TO LEN <W*) 

410 IF MID* (G*, X , 1) = MID* (U*,X,1) THEN GOSUB 480 

420 IF MID* (G*,X,1) < > MID* (U*,X,1> THEN GOSUB 510 

430 NEXT X 
440 PRINT 

450 IF R = LEN (G*) THEN 530 
460 G - G + 1 
470 GOTO 310 

479 REM *** CORRECT LETTER ROUTINE *-** 

480 PRINT "1"; 

490 R = R + 1 
500 RETURN 

509 REM *** INCORRECT LETTER ROUTINE *** 

510 PRINT "0": 

520 RETURN 
530 HOME 

540 PRINT "YOU GOT IT IN "G" TURN(5)!" 

550 PRINT 

560 PRINT "PRESS ANY KEY TO PLAY AGAIN." 

570 GET N* 

580 GOTO 170 

1000 DATA LETCICER,69,76,69,67,84,82,73,67,SGEAROOUUT,79,85,84,82,65, 
71,69,79 

1 010 DATA 85,83,ACTANPEUOL,67,65,78,84,65,76,79,85,80,69 
1020 DATA LABTEKSABL,66,65,83,75,69,84,66,65,76,76 

1 030 DATA TANIRUC,67,85,82,84,65,73,78,TAMELPAC,80,76,65,67,69,77, 

65,84 
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1040 

DATA 

76,89 

1050 

DATA 
87,69 

1 060 

DATA 

1070 

DATA 

1080 

DATA 

1090 

DATA 

1 100 

DATA 

Atari 

1 r r- 

:m *** 


10 DIM U* (11) , 64: C1 5 ) , w* { 1.1) 

20 DIM TEMP* Cl),R* <1) 

30 PRINT CHE*(125) 

40 PRINT "WORD SCRAMBLE" 

50 PR I NT- 

60 PRINT "TRY TO UNSCRAMBLE WORDS BY TYPING" 
70 PRINT "YOUR GUESSES. THE COMPUTER" 

90 PRINT "SHOWS YOU WHICH LETTERS ARE" 


90 ! : 

: ‘R I NT 

"IN THE CORRECT 

1 

X • -/ 

110 

PR I NT 
PR I NT 

"EXAMPLE: THE C 

120 

PR I NT 

"THE ACTUAL WOR 

1.30 

pP T MT 

"IF YOU TYPE: G 

140 

PR I NT 

"RESPOND WITH ' 

1 50 

PR T NT 

"HIRST, FOURTH, 

160 

PRINT 

"ARE IN THE COR 

1 70 

PR I NT 

"PRESS (RETURN) 

I O TV 

X 

GO SUB 

2UUO 


199 REM *** READ SCRAMBLE WORD #** 

200 READ W* 

210 IF W$="0" THEN RUN 

219 REM *** READ ACTUAL WORD *** 

220 F 0 R X ~ 1 . T O L E N ( W * ) 

230 READ CH 

240 T E M P * C H R * (C H) 

250 I.J* < X , X) --TEMP* 

o i j j\j rr v -r y 
“p-yf; 0-^1 

280 P RIN T C !■• IR * < 12 5 > 

290 PRINT "PRESS 'N' THEN (RETURN) FOR NEW WORD" 
299 REM *** GUESS .LOOP **•* 

*T {"•> E J p p T h j “I” 

310 PRINT "THE SCRAMBLED WORD IS:" 

320 PRINT 
330 PRINT W* 

340 PRINT 

360 PRINT "TYPE YOUR GUESS, THEN PRESS (RETURN)"; 
330 INPUT 6* 


r r, ■ 


K1: 


400 IF !... E N (G *) >!.... E N (W * ■ T H E! \| F 
410 IF LEN(GT><LEM(WT) THEN F 
420 PRINT 

430 F 0R X --1 TO !„EM (U!$ ) 

IF G*(X,X)~U*(X,X) THEN GOSUE 


IT is r:.;i i r.r ~ 


rnn LONG!" f GOTO 
RINT ' 1 GUESS T00 SHGRT 1 "5 GO T0 


310 


440 

450 


i -;t ( x . X '/ 


VI l :i.' 1 


THEN 60SUB 540 
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460 

NEXT X 



470 

PRINT 



480 

IF R-LEN(GT) THEN 

560 


490 

G=G+1 



500 

GOTO 300 



509 

REM *** CORRECT LI 

UTTER R 

OUTINE *** 

510 

PRINT "1"; 



520 

R~R+1 



530 

RETURN 



539 

REM *** INCORRECT 

LETTER 

ROUTINE *** 

540 

PRINT "0" ■ 



550 

RETURN 



560 

PRINT CHRT (125) 



570 

PRINT "YOU GOT IT 

IN ";G 

; " TURN(S) ! " 

580 

PR I NT 



590 

PRINT "PRESS (RET!. 

JRN) TO 

PLAY AGAIN.. 

600 

GQSUB 2000 



610 

GOTO 190 




9 

5 6 

y a a 

82, 

7 

•••> H 6 7 y 

ppjr 

AROOUUT,, 

70 Dt" 
• 1 i 

0/1 

oo 

■j - J 

V 

A "7 

/. y 

S,8 

4 

/ C" "7 

? n / 1 

A.., 7 

O ^ OCT C!,-J ^ 

f- O 




cj 

“7 rr 

o o 

/; 

/- /.. i 

cr* 

/_ “7 




‘t 

>. j 

/ ,J .J O 

■' 1 '••• 

“T 

» V 

•- 1 -j / 

n / t-J 




■i 

□4 

L. t-v "7 

7 - J 7 ' 

y ' 

p 

, TAME! 

! i::» /\ 

! ... 1 l~* 

r RO V A. 

-- V “ ? • - 7 


/. o 

J • 

~7~7 

7 •' •• 

„ 

7 2 

‘J ‘ ■***' 7 ' 

O “7 
/ - 7 / 

CO 

. WOLC! 

RAD 

V /. "7 "70 

i U- 1 / ,J / / ,, 

87 * 65 

p 

* 68 

8 

, 6 

9 , TAR 

JUG 

i 

"7 -i o «; 

"7 "r 
9 ' ••••' 

, 84 , 63 , 8 

2 , OWE 

i r 

! — 1 9 

CJ /l ■ 


69,76 
1060 DATA 


MUTESOC,67,79,S3,84,85,77,69„TOGOILB,66 „73,79,76 t 79,7 1 ,89 


1070 

DATA 

ACR 

TEP , 

£.. f "7 ^ p 

do 

‘J , 

80 f 69 , 84 

ARE 

pr.:c cp p t o __ ( /„p cv":; ^ cvo 

1080 

DATA 

El. i 

KET ■, 

t*-: /..o 
/ , u / 

,84, 

Oil TA A.Q 

E“t p ^ | 

y f;Tp D(‘) “7'T /. ( '7 0/1 op. p 

1090 

DATA 

IIS 

SNYF 

>_ ~T 

i 9 ' 

3 ; 7 1 

> y 9 / i / 

) - R9 

7 — * 

,ORDA I ,82,65,68,73 ? 79 

1100 

DATA 

ZEE 

RPAT 

, 84 , 8 

2 , 65 

s 80 69 ^ 9( 

, rr< 

•, ‘-J 

v l - ! 

1999 

R E M * * 

WAIT 

rout 

INE 

s- 



2000 

INPUT 

RT 







2010 

RET! JR 

N 








IBM PC 


3.0 REM ** 

-x- WORD SCF 

;AMBLE: IBM F 

c *** 

30 PRINT 

"WORD SCR:' 

iMBLE " 


40 PR T |\|T 




50 pill NT 

"UN3CRAMBL 

.E WORDS BY 

TYPING " 

60 PRINT 

"YOUR GUES. 

5SES. THE C 

OMPUTER" 

70 PRINT 

"SHOWS VOL 

! WHICH LETT 

EPS ARE" 

80 PRINT 

"CORRECT., 

FOR EXAMPL 

F. i " 

90 PRINT 




J. 00 PR I NT 

"THE COMF 

UTER PRINTS 

, 'SUFGG 

130 PRINT 

"THE AC"R 

JAL WORD IS 

' R! IRRS ' . 

3.20 PRINT 

* 1 ]’ : YOU ’ 

'YPE ' CEL)S3 ' 

„ THE" 


;i. 4 0 
I 50 
16 () 
1 70 
1.80 
■; 90 
200 
71 o 
720 
230 


PRINT "COMPUTER WILL RESPOND WITH" 
PRINT "'3.0011', MEANING THE FIRST," 
PRINT "FOURTH, 6. FIFTH LETTERS ARE IN' 
PR T NT " CORRECT LOO AT IONSPRESS ANY " 
PRINT "KEY TO BEGIN," 

AT : ~ INFEYT 

r r: 


. i ■ A$="" THEN 

i"ii 


REM *x-x- READ SCRAMEiLED WORD *#* 
READ LjV 

IF UT" "0" THEN 31 UN 
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240 FOR X=1 TO LEN(WT) 
250 READ CH(X) 

260 U$=U*+CHR$(CH<X > > 
270 NEXT X 


280 

6-1 


290 

CLS 


300 

PR 1N T 

" PRES 

3 :t 0 

PRINT 

"FOR 

320 

REN ** 

* SUE 

330 

PR I Ml 


340 

PRINT 

" THE 

350 

PRINT 


360 

PR I! N 1 

M M |.'J 

370 

PR I NT 


380 

R—0 


390 

PRINT 

” T YPE 

400 

PRINT 

" T HE 

41.0 

PR 11! T 


4 20 

INPUT 

GT 

430 

IF i.3 

" N " r 

44 0 

IF LEN 

'• O F > > 

430 

IF LEN 

(G f ! < 

460 

PR 1N 1 

ll i > „ 

4 70 

FOR x ~ 

1. 10 

480 

IF MID 

tf : < G f , 

i{. ■• 7 * 1 1 

IF MI. D 

■$ < G T ., 

500 

NEXT X 



"THE SCRAMBLED WORD IS:" 


510 PR1NI 

520 IF R~LEN 0$) I HEN 620 
530 G“G t .1 
540 OOIO 330’ 

550 REM *** CORRECT LETTER *** 

560 PRINT "1"p 
570 R=R+1 
580 RETURN 

590 REM *•*•* INCORRECT LETTER *•** 
600 PRINT "O"; 

6i0 RE!URN 


6.50 PRINT "GO! IT IN "6" TURN IS)" 
640 PRINT 


6^0 

PR] N 1 

"PRESS AN X 

LEY 

r 

i 

0 RUN 

660 

nx 1 NT 

E T T 




6 70 

IF ■ iT - 

"" THEN 66 

J 



ti30 

GO 'I n y 

i ) ■' 




i ooo 

0 v * I i- ; 

LE ! CICER ,. 6 

"/ / £> 

*i 6 

9 „ 6 7 

1 010 

DA 1 11 

SGEv iROOLU!! 

» •' H 

of-; 

o ,-t o 

02 '.; 

DA I ; . 

i ii' TAI IRE 1IO! 

;; 


■/'j'7 

! •: ' ) 3 ( ) 

DA T A 

ALB T E.LSABL 

;i * 

x_ 

. S3 „ 7 

1040 

DA ! A 

tan :i; roc „ 6 x 

, 85, 

6 

, 84 „ 6 

103 0 

DA f A 

ONUSCH1.67 

, 35, 

rr : r 
O - 

a '7 

1060 

DON A 

DEL :i: S, S3,7 

'..j h 

6 

cj h CD 7 h 

V H / 

6 





:! 0 7 L 

DAT A 

MUTESOC„67 

? •" 7 n 

O 

., 84,8 

i 080 

Da i a 

ACR f EP, 6 7 „ 

65, a 

x. ^ 

80,69 

I (.tor 

DAT A 

ELI * E ! . 75 

69,8 

T , 

j- „ / £;» 

:!. 1 x: 

Da I a 

IISOM I F,83 


.... . 

/ ,». 

7 | ., ? 

:l 1 . 1 . 

DA i A 

7.EERPA ! ,, 8 4 

,, 82, 


80 , 6 
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Commodore 64 

1 REM *** WORD SCRAMBLE 64 *** 

10 PRINT CHR$(147) 

£0 PRINT "WORD SCRAMBLE" 

30 PRINT 

40 PRINT "TRY TO UNSCRAMBLE WORDS BY TYPING" 

50 PRINT "IN GUESSES. THE COMPUTER WILL SHOW YOU" 

60 PRINT "WHICH LETTERS ARE IN THE CORRECT PLACES." 

70 PRINT 

80 PRINT "EXAMPLE: THE COMPUTER PRINTS, ’SUEGS’." 

90 PRINT "THE ACTUAL WORD IS ’GUESS’." 

100 PRINT "IF YOU TYPE ’GEUSS’, THE COMPUTER WILL" 

110 PRINT "RESPOND WITH ’10011’, MEANING .THE" 

120 PRINT "FIRST, FOURTH, AND FIFTH LETTERS ARE" 

130 PRINT "IN THE CORRECT LOCATIONS." 

140 PRINT 

150 PRINT "PRESS (SHIFT) TO CONTINUE." 

160 GOSUB 3000 
170 U$="" 

179 REM *** READ SCRAMBLED WORD *** 

180 READ W$ 

190 IF W*="0" THEN RUN 

199 REM *** READ ACTUAL WORD *** 

£00 FOR X = 1 TO LEN(W*>, 

£10 READ CH ( X) 

££0 U$=U$+CHR*(CH(X>) 

£30 NEXT X 
£40 G=1 

£50 PRINT CHR$(147) 

£60 PRINT "PRESS ’N’ THEN (RETURN) FOR A NEW WORD" 

£69 REM *** GUESS LOOP *** 

£70 PRINT 

£80 PRINT "THE SCRAMBLED WORD IS:" 

£90 PRINT 

300 PRINT " "W$ 

310 PRINT 
3£0 R=0 

330 PRINT "TYPE YOUR GUESS, THEN PRESS (RETURN)." 

340 PRINT 
350 INPUT G* 

360 IF G$="N" THEN 170 

370 IF LEN(G$)> LEN(W$) THEN PRINT "GUESS TOO LONG!":GOTO £80 
380 IF LEN(G$)(LEN(W$) THEN PRINT "GUESS TOO SHORTGOTO £80 
390 PRINT " " ; 

400 FOR X=1 TO LEN(W$) 

410 IF MID$(G$, X, 1)=MID* (L'$, X, 1) THEN GOSUB 480 
4£0 IF MID$(G$,X, 1) (> MID$ (u$, X, 1) THEN GOSUB 510 
430 NEXT X 
440 PRINT 

450 IF R=LEN(G$) THEN 530 
460 G-G+T 
470 GOTO £70 

479 REM *** CORRECT LETTER ROUTINE *** 

480 PRINT "1"; 

490 R~R+1 

500 RETURN 

509 REM *** INCORRECT LETTER ROUTINE *** 
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510 PRINT "0"; 

5£0 RETURN 

530 PRINT CHR$(147) 

540 PRINT "YOU GOT IT IN"G"TURN<S)!" 

550 PRINT 

560 PRINT "PRESS (SHIFT) TO PLAY AGAIN." 

570 GOSUB 3000 
5Q0 GOTO 170 

1000 DATA LETCICER,69,76,69,67,84, 82, 73, 67, SGEAROOUUT,79,85,84,8£,65,71, 
69, 79 

1010 DATA 85, 83, ACTANPEUOL, 67, 65, 78, 84, 65, 76, 79, 85, 80, 69 
10£0 DATA LABTEKSABL,66,65,83,75, 69, 84, 66, 65, 76,76 

1030 DATA TANI RUC, 67, 85, 8£, 84, 65, 73, 78, TAMELPAC, 80, 76, 65, 67, 69, 77, 65, 84 
1040 DATA ONUSHCI,67,85,83,7£, 73, 79, 78, WOLCRADY, 67,79,87,65,8£,68,76, 89 
1050 DATA DELIS, 83, 76, 73, 68, 69, TARIUG, 71,85, 73, 84, 65, 8£, OWELT, 84, 79, 87, 
69, 76 

1060 DATA MUTESOC,67,79,83,84,85, 77, 69, YOGCILB, 66, 73, 79,76, 79, 71,89 
1070 DATA ACRTEP, 67, 65, 8£, 80, 69, 84, ARERES, 69, 8£, 65, 83, 69, 8£ 

1080 DATA ELTKET, 75, 69, 84, 84, 76, 69, REUICTP, 80, 73, 67, 84, 85, 8£, 69 

1090 DATA IISGNYF,83,73,71,78,73, 70, 89, ORDAI, S£, 65,68,73,79 

1100 DATA ZEERPAT,84,8£,65,80,69, 90, 69, 0 

3000 WAIT 653,1 

3010 WAIT 653,1,1 

30£0 RETURN 

T1-99/4A 

1 REM *** WORD SCRAMBLE TI 99/4A *** 

1.0 CALI.. CLEAR 

2 0 P RIN T " W O R D S C R A M B L E'' 

30 PRINT 

4i) PRINT "UNSCRAMBLE WORDS BY" 

50 PRINT "TYPING YOUR GUESSES." 

PINT "THE COMPUTER SHOWS" 


::H LETTERS ARE" 


60 !■■ 

70 PRINT "YOU WHIG 
80 PRINT "CORRECT, FOR EXAMPLE:" 
90 PRINT 

1.00 PRINT "THE COMPUTER PRINTS,” 
110 PRINT "'SEUGS'. THE ACTUAL" 


120 

PRINT "WOR 

D IS 'GUESS'." 

130 

PRINT "IF 

YOU TYPE 'GEUSS'," 

1.40 

PRINT "THE 

COMPUTER WI L...L.. RESPO 

1.50 

PR I N’T "WIT 

H '1001.1', MEANING" 

1. to 

PRINT "THE 

FIRST, FOURTH, ?<" 

170 

PRINT "FIR 

TH LETTERS ARE IN" 

1.80 

PRINT "THE 

CORRECT LOCATIONS-" 

•! Q/“*» 

A. f 

PRINT "PRE 

S3 (ENTER) TO PLAY" 

20 0 

Input m 


210 

READ 


220 

IF W$“-"0 M 

THEN 230 ELSE 250 

250 

RES TORI’-' 


240 

GOTO 210 


249 

REM *•** RE 

AD SCRAMBLED WORD **• 

250 

! ; ;4fl l! 11 


76 

FOR X = 1 TO 

i,,EN' WT) 

270 

READ CH(X > 


200 

LH^UJT^CHRT 

(CH ( X 5 ) 

290 

NEXT X 


300 

N-41 


310 

CALL CLEAR 
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320 

330 

340 

349 

350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


PRINT "PRESS N THEN (ENTER)" 
PRINT "FOR A NEW WORD." 

PRINT 

REM *** GUESS LOOP *** 

PRINT "THE SCRAMBLED WORD IS: " 
PRINT 

PRINT " ";W$ 

PRl'NT 

R~0 

PRINT "TYPE IN YOUR GUESS," 
PRINT "THEM PRESS (ENTER)" 
PRINT 
INPUT G* 

IF G$="N" THEM 210 


450 

IF L..EN ( G$ > ) 

LEN(W$)THEN 460 

ELSE 

460 

PRINT "SUES 

S TOO LONG!" 


470 

GOTO 350 



480 

IF LEN(G#) < 

LEN(WT)THEN 490 

ELSE 

490 

PRINT "SUES 

S TOO SHORT 1 " 


500 

GOTO 320 



51.0 

PRINT " "; 



520 

FOR X--1 TO 

LEN ( W$ ) 


5:\0 

IF SEG*CG$, 
GOSUB 620 

X , 1 > -5EG$ < i J$ , X . 1 

> THEN 

540 



550 

IF SEl3$ <G4?, 

X ,1) < >SEG$ (U$ ,X , 

i ) THE 

560 

80SUB 650 



570 

NEXT X 



580 

PR I NT 



590 

IF R—LEN(WT 

) THEN 670 


600 

N=M+1 



610 

GOTO 340 



619 

REM *** CORRECT LETTER *** 


620 

PRINT "1"; 



630 

R '-'L:- 1 1 



640 

RETURN 



649 

REM *** IN 

CORRECT LETTER * 

**■ 

650 

PRINT "0"; 



uu'.' 

RETURN 



670 

CALL.. CLEAR 



680 

PRINT "GOT 

IT IN" ;; N; "TURN CS 

\ M 
t 

690 

PR I NT 



700 

PRINT "PRES 

S (ENTER) TO PL A 

V !! 

‘l 

710 

INPUT RT 



720 

GOTO 210 



730 

DATA LETCIC 

ER , 69 , 76 , 69 , 67 , 8 

/j. p 

A 1 "/ 

79 . 85 „ 83 



740 

DATA ACTAMP 

EUOL , 67,65 , 78 , 84 

, 65,7 

750 

DATA 1... AD TEr 

SABI. , 66 , 65 , S3 , 75 

5 69 8 

760 

DATA TANIRUC , 67 ,, 85 , 82 , 84 , 65 

“/■?* '7 

i. f s i / 

77 C) 

DATA QMUSMC 

I„67 5 85 , 83 , 72 , 73 

79 7 
•1 • 7 • 

780 

DATA DELIS, 

83 , 76 , 73 , 68 , 69 , T 

ARIUG 

C:> ' / i; 

7 JL 

1 



790 

DATA MUTESO 

l., i tit , / , U-.J 

■, 77, 6 

soo 

DATA ACRTEP 

. 67 , 65 82 , 80 , 69 , 

84 , AR 

810 

DATA ELTKET 

6 , 7 o./]. p q 7 £ y 

69 , RE 

820 

DATA IISGNY 

[T p t '- r . 77 7 j 70 T 

, 70 , 8 

830 

DATA ZEERPA 

■|‘ fTjTJ. £3 0 /, 7 ( P(“) /. t O 

: 90 } 6 


10 


;i (J 




. */’ "7 r !”"> 

A... '...I -| f *.J . 
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TRS-80 Color Computer 

1 REM *** WORD SCRAMBLE TRS-80 COLOR *** 

10 CLS 

£0 PRINT "WORD SCRAMBLE" 

30 PRINT 

40 PRINT "UNSCRAMBLE WORDS BY TYPING" 

50 PRINT "YOUR GUESSES. THE COMPUTER" 

60 PRINT "SHOWS YOU WHICH LETTERS ARE" 

70 PRINT "CORRECT. FOR EXAMPLE:" 

80 PRINT 

90 PRINT "THE COMPUTER PRINTS, ’SEUGS’" 

100 PRINT "THE ACTUAL WORD IS ’GUESS’." 

110 PRINT "IF YOU TYPE ’GEUSS’, THE" 

1£0 PRINT "COMPUTER WILL RESPOND WITH" 

130 PRINT "’10011’, MEANING THE FIRST, " 

140 PRINT "FOURTH, & FIFTH LETTERS ARE IN" 
i50 PRINT "CORRECT LOCATIONS. PRESS ANY" 

160 PRINT "KEY TO BEGIN." 

170 A$=INKEY$ 

180 IF A$=""THEN 170 
190 U*="" 

199 REM *** READ SCRAMBLED WORD *** 

200 READ W* 

£10 IF W*="0" THEN RUN 
220 FOR X=1 TO LEN(W$> 

£30 READ CH(X) 

£40 U*=U*+CHR*(CH(X)) 

£50 NEXT X 
£60 G=1 
£70 CLS 

£80 PRINT "PRESS ’N’ + (ENTER)" 

290 PRINT "FOR A NEW WORD." 

£99 REM *** GUESS LOOP *** 

300 PRINT 

310 PRINT "THE SCRAMBLED WORD IS:" 

3£0 PRINT 

330 PRiNT " "W* 

340 PRINT 
350 R=0 

360 PRINT "TYPE YOUR GUESS," 

370 PRINT "THEN PRESS (ENTER)" 

380 PRINT 
390 INPUT G$ 

400 IF G$="N" THEN 190 

410 IF LEN(G$)> LEN(W$) THEN PRINT "GUESS TOO LONG!":GOTO 310 
420 IF LEN(G$) <LEN(W$) THEN PRINT "GUESS TOO SHORT!":GOTO 310 
430 PRINT " "; 

440 FOR X=1 TO LEN(W$) 

450 IF MID*(G*,X,1)=MID$(U$,X, 1) THEN GOSUB 520 
460 IF MID$(G$, X, 1) <>MID*(U$, X, 1) THEN GOSUB 550 
470 NEXT X 
480 PRINT 

490 IF R=i_EN(G$) THEN 570 
500 G=G+1 
510 GOTO 300 

519 REM *** CORRECT LETTER *** 

520 PRINT "1"; 
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530 R=R+1 
540 RETURN 

549 REM *** INCORRECT LETTER *** 

550 PRINT "0"; 

560 RETURN 
570 CLS 

580 PRINT "GOT IT IN "G" TURN(S)" 

530 PRINT 

600 PRINT "PRESS ANY KEY TO RUN AGAIN" 
610 A*=INKEY$ 

620 IF A*="" THEN GOTO 610 


630 GOTO 130 

1000 DATA LETCICER,69,76,69,67,84,82, 73, 67 
1010 DATA SGEAROOUUT, 79, 85, 84, 82, 65, 71,69, 79,85, 83 
1020 DATA ACTANPEUOL, 67, 65, 78, 84, 65, 76, 79, 85,80, 69 
1030 DATA ALBTEKSABL, 66, 65, 83, 75, 63, 84, 66, 65, 76, 76 

1040 DATA TANIRUC, 67, 85, 82, 84, 65, 73, 78, TAMELPAC, 80, 76, 65, 67, 69, 77, 65, 84 
1050 DATA ONUSHCI, 67, 85, 83, 72, 73, 73, 78, WOLCRADY, 67, 79, 87, 65, 82, 68, 76, 89 
1060 DATA DELIS, 83, 76, 73, 68, 69, TARIUG, 71, 85, 73, 84, 65, 82, OWELT, 84, 73, 87, 
69, 76 

1070 DATA MUTESOC, 67, 73, 83, 84. 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71,89 
1080 DATA ACRTEP, 67, 65, 82, 80, 69, 84, ARERES, 69, 82, 65, 83, 69, 82 
1090 DATA ELTKET, 75, 69, 84, 84, 76, 69, REUICTP. 80, 73, 67, 84, 85, 82, 69 
1100 DATA IISGNYF, 83, 73, 71,78, 73, 70, 89, ORDAI, 82, 65, 68, 73, 79 
1110 DATA ZEERPAT, 84, 82, 65, 80, 69, 90, 69, 0 


TRS-80 Model III and Model 4 


1 REM *** WORD SCRAMBLE TRS-80 MODELS 3 AND 4 *** 
10 CLS 

20 PRINT "WORD SCRAMBLE" 

30 PRINT 

40 PRINT "UNSCRAMBLE WORDS BY TYPING" 

50 PRINT "YOUR GUESSES. THE COMPUTER" 

60 PRINT "SHOWS YOU WHICH LETTERS ARE" 

70 PRINT "CORRECT. FOR EXAMPLE:" 

80 PRINT 

90 PRINT "THE COMPUTER PRINTS, 'SEUGS'" 

100 PRINT "THE ACTUAL WORD IS ’GUESS'." 

110 PRINT "IF YOU TYPE 'GEUSS' THE " 

120 PRINT "COMPUTER WILL RESPOND WITH" 

130 PRINT "'10011’, MEANING THE FIRST," 

140 PRINT "FOURTH, & FIFTH LETTERS ARE IN" 

150 PRINT "CORRECT LOCATIONS. PRESS ANY" 

160 PRINT "KEY TO BEGIN." 

170 A*=INKEY* 

180 IF A*="" THEN 170 
190 U*="" 

199 REM *** READ SCRAMBLED WORD *** 

200 READ W* 

210 IF W*="0" THEN RUN 
220 FOR X~ 1 TO LEN(W*) 

230 READ CH ( X) 

240 U*=U*+CHR*(CH < X)) 

250 NEXT X 

260 G” 1 ■* 

270 CLS 

280 PRINT "PRESS ’N’ + (ENTER) 

290 PRINT "FOR A NEW WORD." 

299 REM *** GUESS LOOP *** 
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300 PRINT 

310 PRINT "THE SCRAMBLED WORD IS:" 

320 PRINT 

330 PRINT " "W$ 

340 PRINT 
350 R=0 

360 PRINT "TYPE YOUR GUESS," 

370 PRINT "THEN PRESS (ENTER)" 

380 PRINT 
390 INPUT G$ 

400 IF G$="N" THEN 190 

410 IF LEN(G$)>LEN(W$) THEN PRINT "GUESS TOO LONG!":GOTO 310 
420 IF LEN(G*KLEN(W*) THEN PRINT "GUESS TOO SHORT!": GOTO 310 
430 PRINT " "; 

440 FOR X=1 TO LEN(W*> 

450 IF MID*(G$,X,1)=MID*(U$,X, 1) THEN GOSUB 520 
460 IF MID$(G$,X,1><>MID$(U*,X ,1) THEN GOSUB 550 
470 NEXT X 
430 PRINT 

490 IF R=LEN(G$> THEN 570 
500 G=8'+l 
510 GOTO 300 

519 REM *** CORRECT LETTER *** 

520 PRINT "1"; 

530 R=R+1 

540 RETURN 

549 REM *** INCORRECT LETTER *** 

550 PRINT "0"; 

560 RETURN 
570 CLS 

580 PRINT "GOT IT IN "G" TURN(S)" 

590 PRINT 

600 PRINT "PRESS ANY KEY TO RUN AGAIN" 

610 A$=INKEY$ 

620 IF A$="" THEN GOTO 610 
190 

LETCICER,69,76,69,67,84,82,73,67 
SGEAROOUUT,79,85,84,82,65,71,69,79,85,83 
ACTANPEUOL,67,65,73,34,65,76,79,85,80,69 
ALBTEKSABL,66,65,83,75,69,84,66,65,76,76 

TANIRUC,67,85,82,84,65,73, 78,TAMELPAC,80,76,65,67,69,77,65,84 
ONUSHCI,67,85,83,72,73,79, 78, WOLCRADY, 67,79,87, 65,82,68,76,89 
DELIS,83,76,73,68,69,TARIUG, 71,85,73,84,65,82,OWELT,84,79,87, 

MUTESOC,67,79,83,84,85,77,69,YOGOILB,66,73,79,76,79,71,89 
ACRTEP,67,65,82,80,69,84, ARERES,69,82,65,83,69,82 
ELTKET,75,69,84,84,76,69, REUICTP,80,73,67,84,85,82,69 
11SGNYF,83,73,71,78,73,70,89, ORDAI,82,65,68,73,79 
ZEERPAT,84,82,65,80,69,90,69,0 


630 GOTO 
640 DATA 
650 DATA 
660 DATA 
670 DATA 
680 DATA 
690 DATA 
700 DATA 
69, 76 
710 DATA 
720 DATA 
730 DATA 
740 DATA 
750 DATA 


VIC-20 

1 REM *** WORD SCRAMBLE VIC-E0 *** 
10 PRINT CHR$(147) 

£0 PRINT "WORD SCRAMBLE" 

3® PRINT 

40 PRINT "UNSCRAMBLE WORDS BY" 

50 PRINT "TYPING YOUR GUESSES." 

60 PRINT "THE COMPUTER SHOWS" 

70 PRINT "YOU WHICH LETTERS ARE" 
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813 PRINT "CORRECT. FOR EXAMPLE:" 

90 PRINT 

100 PRINT "THE COMPUTER PRINTS," 

110 PRINT "* SEUGS’. THE ACTUAL" 

120 PRINT "WORD IS ’GUESS’. IF" 

130 PRINT "YOU TYPE ’GEUSS’, THE" 

140 PRINT "COMPUTER WILL RESPOND" 

150 PRINT "WITH ’10011’, MEANING" 

160 PRINT "THE FIRST, FOURTH, &" 

170 PRINT "FIFTH LETTERS ARE IN" 

180 PRINT "THE CORRECT LOCATIONS. " 

190 PRINT "PRESS (SHIFT) TO PLAY" 

£00 GOSUB 3000 
£10 U*="" 

£19 REM *** READ SCRAMBLED WORD *** 

££0 READ W$ 

£30 IF W$="0" THEN RUN 

£39 REM *** READ ACTUAL WORD *** 

£40 FOR X=1 TO LEN(W$) 

£50 READ CH(X) 

£60 U*=U$+CHR*(CH(X>) 

£70 NEXT X 
£80 G= 1 

£90 PRINT CHR$(147) 

300 PRINT "PRESS ’N’ + (RETURN)" 

310 PRINT "FOR A NEW WORD." 

319 REM *** GUESS LOOP *** 

320 PRINT 

330 PRINT "THE SCRAMBLED WORD IS:" 

340 PRINT 

350 PRINT " "W$ 

360 PRINT 
370 R=0 

380 PRINT "TYPE YOUR GUESS, THEN PRESS (RETURN)" 

390 PRINT 
400 INPUT G$ 

410 IF G$="N" THEN £10 

4£0 IF LEN(6$)> LEN(W$) THEN PRINT "GUESS TOO LONGGOTO 3 
430 IF LEN(G$) <LEN(W$) THEN PRINT "GUESS TOO SHORT!":GOTO 
440 PRINT " "; 

450 FOR X=1 TO LEN(W$) 

460 IF MID*(G*,X,1)=MID*(U*,X,1) THEN GOSUB 530 
470 IF M-ID*(G*, X, 1) (>MID*(U*, X, 1) THEN GOSUB 560 
480 NEXT X 
490 PRINT 

500 IF R=LEN(G$) THEN 580 
510 G=G+1 
5£0 GOTO 3£0 

5£9 REM *** CORRECT LETTER ROUTINE *** 

530 PRINT "1"; 

540 R=R+1 
550 RETURN 

559 REM *** INCORRECT LETTER ROUTINE *** 

560 PRINT "0": 

570 RETURN 

580 PRINT CHR$<147) 

590 PRINT "GOT IT IN"G"TURN(S)" 

600 PRINT 

610 PRINT "PRESS (SHIFT) TO PLAY" 
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620 GOSUB 3000 
630 GOTO 210 

1000 DATA LETCICER, 69, 76, 69, 67, 64,82, 73, 67, SGEAROOUUT, 79, 85, 84, 82, 65, 71, 
69, 79 

1010 DATA 85, 83, ACTANPEUOL, 67, 65, 78, 84, 65, 76, 79, 85, 80, 69 
1020 DATA LABTEKSABL,66,65,83,75,69, 84, 66, 65, 76, 76 

1030 DATA TANI RUC, 67, 85, 82, 84, 65, 73, 78, TAMELPAC, 80, 76, 65, 67, 69, 77, 65, 84 
1040 DATA ONUSHCI, 67, 85, 83, 72, 73, 79, 78, WOLCRADY, 67, 79, 87, 65, 82, 68, 76, 89 
1050 DATA DELIS, 83, 76, 73, 68, 69, TARIUG, 71,85, 73, 84, 65, 82, OWELT, 84, 79, 87, 
69, 76 

1060 DATA MUTESOC, 67, 79, 83, 84, 85, 77, 69, YOGOILB, 66, 73, 79, 76, 79, 71,89 

1070 DATA ACRTEP, 67, 65, 82, 80, 69, 84, ARERES, 69, 82, 65, 83,69,82 

1080 DATA ELTKET, 75, 69, 84, 84, 76, 69, REUICTP, 80, 73, 67, 84, 85, 82, 69 

1090 DATA IISGNYF,83, 73,71,78,73, 70, 89, ORDAI, 82, 65, 68,73,79 

1100 DATA ZEERPAT,84, 82,65,80, 69, 90, 69, 0 

3000 WAIT 653, 1 

3010 WAIT 653, 1, 1 

3020 RETURN 
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BONUS PROGRAM #4 

SECRET CODES 

Now SECRET CODES can be sent between you and a pal. And 
no one will know what you're saying...without the SECRET 
CODE encoder/decoder program. To use it convert a message 
into code by selecting ENCODE -from the menu. Then type 
your message .in normal English. Next, write the encoded 
message down as it appears on the computer screen. Return 
it the main menu and select DECODE. Then type the encoded 
message you wrote, and watch the computer decode the 
message. This program will decode all letters and 
numbers, question marks, periods, and spaces. Commas 
aren't allowed and may cause errors on some computers. 


ADAM 

1 REM *** SECRET CODE ADAM *** 

9 REM *** dimension code arrays *** 

10 DIM a$(39) 

20 DIM c$(39) 

29 REM *** initialize code arrays *** 

30 FOR x = 1 TO 39 
40 READ a$( x) 

50 READ c$(x) 

60 NEXT x 

69 REM *** main menu *** 

70 HOME 

80 PRINT "SECRET CODE PROGRAM" 

90 PRINT 

100 PRINT "Type the number of your choice" 
110 PRINT "then press (RETURN)." 

120 PRINT 

130 PRINT "1)Encode a message" 

140 PRINT "2)Decode a message" 

150 PRINT 

160 INPUT "Which one: "; ch 
170 IP ch < 1 OR ch > 2 THEN 160 
180 ON ch GOTO 200, 500 

199 REM *** encode routine *** 

200 HOME 

210 PRINT "Type your message, two lines" 
220 PRINT "max. at one time please! Use" 
225 PRINT "only CAPITALS and no commas!" 
230 PRINT "Type 'O' and press (RETURN)" 

240 PRINT "to go to the main menu." 

250 PRINT 

260 PRINT "What is your message" 

270 INPUT m$ 

280 IP m$ = "0" THEN 70 
290 PRINT 

300 PRINT "Now encoding..." 

310 PRINT 

320 PRINT "Here's the code:" 


56 






10 AWESOME PROGRAMS FROM K-POWER 


330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

499 

500 
510 
520 
525 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 

1000 

1010 

1020 

1030 

1040 


PRINT 

FOR x = 1 TO LEN(m$) 

FOR m = 1 TO 39 

IF MID$(m$, x, 1) = a$(m) THEN PRINT c$(m); 

NEXT m 

NEXT x 

PRINT 

PRINT 

PRINT "Press any key to continue." 

GET n$ 

GOTO 70 

REM *** decode routine *** 

HOME 

PRINT "Type your coded message, two lines" 
PRINT "max. at one time please!" 

PRINT "Use only CAPITALS." 

PRINT "Type 'O' and press (RETURN)" 

PRINT "to return to the main menu." 

PRINT 

PRINT "What is the coded message" 

INPUT c$ 

IF c$ = "0" THEN 70 
PRINT 

PRINT "Now decoding..." 

PRINT 

PRINT "Here's the message:" 

PRINT 

FOR x = 1 TO LEN(c$) 

FOR m = 1 TO 39 

IF MID$(c$, x, 1) = c$(m) THEN PRINT a$(m); 

NEXT m 

NEXT x 

PRINT 

PRINT 

PRINT "Press any key to continue." 

GET n$ 

GOTO 70 

DATA A,F," ",B,H,C,U,D,Y,E,Z,F,0,G,J,H,L 

DATA I,Q,J,S,K,W,L,A,M,C,N,M,0,T,P,V,Q,P 
DATA R,K,S,D,T,G,U,B,V,E,W,I,X,N,Y,X,Z,R 
DATA .,. ,0,9,1 ,7,2,3,3,0,4,2,5,1 
DATA 6,4,7,5,8,6,9,8,?,? 


Apple II and Apple lie 

I REM **■* SECRET CODE APPLE *** 

9 R E M * * * DIM E N SIQ N C 0 D E A R R A Y S * * * 

10 DIM AT(39) 

20 DIM Ct(39) 

29 REM *** INITIALIZE CODE ARRAYS •*** 

30 FOR X - 1 TO 39 
40 READ AT(X) 

50 READ CT(X > 

60 NEXT X 

69 REM **-* MAIN MENU *** 

70 HOME 

go P'|v j;\j-[■ "SECRET r*nDF f : RTJRRAM" 

90 PRINT 

100 PRIN T "T Yp E T! -i E N UM B ER 0 Y 01JR G i | n T 0 E 1 ' 
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PRINT "THEN PRESS (RETURN)„" 

PRINT 

PRINT "1)ENCODE A MESSAGE" 

PRINT "2)DECODE A MESSAGE" 

PRINT 

INPUT "WHICH ONE; " ; CH 
IF CH < 1 OR CH > 2 THEN 160 
ON CH GOTO 200,500 
REM *** ENCODE ROUTINE *** 

HOME 

PRINT "TYPE YOUR MESSAGE, TWO LINES" 

PRINT "MAX. AT ONE TIME PLEASE!" 

PRINT "MO COMMAS ALLOWED!" 

PRINT "TYPE ' 0 ' AND PRESS (RETURN)" 

PRINT "TO GO TO THE MAIN MENU." 

PRINT 

PRINT "WHAT IS YOUR MESSAGE" 

INPUT MT 

IF MT =■■= "0" THEN 70 
PRINT 

PRINT "NOW ENCODING...," 

PRINT 

PRINT "HERE'S THE CODE:" 

PRINT 

FOR X = 1 TO L..EN (MT) 

FOR M = 1 TO 39 

IF MID* (M*,X,1) = AT(M) THEN PRINT CT(M) 


NEXT M 
NEXT X 
PR I NT 
PR I NT 

PRINT "PRESS ANY KEY TO CONTINUE." 

GET NT 
GOTO 70 

REM *** DECODE ROUTINE *** 

HOME 

PRINT "TYPE YOUR CODED MESSAGE, TWO LINES" 


520 

PR I NT 

"MAX „ 

AT ONE 

530 

PR I NT 

" TYPE 

'0" AND 

540 

PR I NT 

"TO RE 

TURN TO 

550 

PR I NT 



560 

PR I NT 

" WHAT 

IS THE ! 

570 

INPUT 

CT 


580 

IF CT 

"0" 

THEN 70 

590 

PR I NT 



6 0 0 

PR I NT 

"MOW DECODING 

610 

PR I NT 



620 

PR I NT 

"HERE' 

8 THE Mi 

630 

PR I NT 



640 

FOR X 

•■= 1 TO 

L...EN (( 

6 oO 

FOR M 

s 1 TO 

39 

6 6 O 

IF MI 

DT (CT 

, X , 1 ) - 

670 

NEXT V 

1 

I 


680 

NEXT X 



690 

PR I NT 




700 PRINT 

710 PRINT "PRESS ANY KEY TO CONTINUE,. " 
720 GET NT- 
730 GOTO 70 
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1000 

DATA 

A,F," 

101 0 

DATA 

I , Q , J , S, K 

1020 

DATA 

R , K , S , D , T 

1030 

DATA 

O Q 1 

a y a j 9 7 ) X 

1040 

Atari 

DATA 

6,4,7,5,8 


1 

t '■ ‘f : 


1 REM *** SECRET CODE ATARI *** 

9 REM •**•* DIMENSION CODE ARRAYS **• 

10 DIM m <1200),NT(12005 

2 0 D IM G $ ( 3 9) , A $ < 3 9 > 

30 DIM R*(1) ,A1 $ (1) ,CiT<1) 

39 REM *** INITIALIZE CODE ARRAYS ■: 

40 FOR X=1 TO 39 
50 READ AIT 

60 AT ( X) =A1 :$ 

70 READ C1 .1 
SO CT(X)=C1T 
90 NEXT X 


99 f 

vEM •*** 

MAIN 

MENU 

100 

PR I NT 

CHR* ( 

125 ) 

110 

PRINT 

" SECR 

ET CODE PROGRAM 

120 

c:«p T KIT' 

1 » *. .L l •{ 1 



130 

PRINT 

"TYPE 

THE NUMBER OF 

140 

PRINT 

" THEN 

PRESS THE (RET! 

150 

PR I NT 



160 

PR I NT 

" 1 ) E N C 0 D E A M E S S A G E 1 ' 

1.70 

PRINT 

”2) DE 

CODE A MESSAGE" 

1 P.a 

PR I NT 



190 

PRINT 

" Wl-I IC 

H ONE";; 

.9 0 0 

I NF’LJT 

CH 


'? 1 o 

IF CH< 

1 HR 

CH>2 THEN 190 

220 

ON CH 

G 0 TO 

230,500 

229 

REM ** 

* ENC 

ODE ROUTINE *•■** 

■■■■.' "-T r‘Y 

PRINT 

CHRT ( 

'[• \ 

240 

0r:« tmt 

1 * i. 1 1 1 

" TYPE 

YOUR MESSAGE, 

250 

pry T KIT 

!! ! v ! A X IM U M A N D N 0 C 0 M M i 

. 260 ) 

PR I NT 

H TyDlT 

1 1 t 1— 

' 0 ' AMD PRESS 

270 

!-' RJNT 

"TO T 

HE MAIN MENU,. " 

280 

PR I NT 



290 

PRINT 

"WHAT 

|9 YOUR M r:r a c:? a cj 1 

300 

INPUT 

M •* 
l J -I-' 


310 

TP !--*!• 

H -r 

urrjvj |YwT 

■7 

PRINT 




PR I NT 

" MOW 

rrhjrnn t j%fr". n 

340 

FRI NT 



350 

PRINT 

" HERE 

*:S THE CODE: “ 


CHOICE 


TIES, 


• , / ' ! | ;; ;;;;; ■( j } i | j" |\| ( {>■] ! 

pj p fj !■ V jvj rj „- 1 T rj o 

oi Jp jvj^; / o ^ 3 }--ft# ([vj jvj) •{■}.,.(pj\j pr-Tj^T n.f: f | v {. | v {) « 


400 

NEXT M 

410 

NEXT S 

420 

PRINT 

4 3 0 

PR T NT 

440 

PRINT "PR 

450 

ci f '| o | jp_ •'pf) ft 

460 

GOTO 100 

499 

9PM *•#*• D 


(R E TU R M) T 0 C Q i\jTINU E !! 
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500 PRINT CHR$(125) 

510 PRINT "TYPE YOUR CODED MESSAGE, TWO LINES" 
520 PRINT "MAXIMUM - NO COMMAS PLEASE!" 

530 PRINT "TYPE 'O' AND PRESS (RETURN)" 

540 PRINT "TO RETURN TO THE MAIN MENU." 

550 PRINT 

560 PRINT "WHAT IS THE CODED MESSAGE" 

570 INPUT NT 

580 IF NT="0" THEN 100 

590 PRINT 

600 PRINT “NOW DECODING...." 

610 PRINT 

620 PRINT "HERE'S THE MESSAGE;" 

630 PRINT 

640 FOR X = 1 TO LEN(NT) 

650 FOR M=i TO 39 

660 IF NT ( X,X) — Cf- ( M , M ) THEN PR I NT AT ( M , M > 

670 NEXT M 
680- NEXT X 
690 PRINT 
700 PRINT 


710 

PRINT "PR 

ESE 

CRETL 

RN 

) T 

U 

CON 

T 

INUE 

" ?! 



720 

GOSUB 20C 

0 











730 

GOTO 100 












1000 

DATA A,F 

•i i 

, B , LI, 

c\ 

i i n 

5 

\/ 

9 1 

, E , 

Z 

err n 

1 1 v ^ 

9 ^ 9 

J 

H, L 

1010 

DATA I ,0 


S , K , W , 

L, 

A , M 

,c 

. N ■ 

y • • 7 

M 

.0,T 

, P 7 

v 

Q, P 

1020 

DATA R,K 

,S, 

n t r.7. 

U i , vj v 

U, 

B , V 

,E 

, w , 

T 

» X , N 

y 

i ' i 

X 

z, R 

1030 

DATA .,. 

, 0 

9,1,7, 

n 

.iL 9 

T “T 

, 0 

7 4 >j 


7 5 , 1 




1040 

DATA 6,4 

»■' 

-> R 6 

9, 

O O 
J 9 : 

*i ■ 







1999 

REM *•** 

INF 

LJT ROL 

TI 

NE 

•s- * 

*• 






2000 

INPUT R:f 












2010 

RETURN 












Commodore 64 












1 REM *** SECRET 

CODE 

64 









9 REM *** DIMENSION CODE ARRAYS *** 

10 DIM A$<39) 

£0 DIM C*<39) 

£9 REM *** INITIALIZE CODE ARRAYS *** 

30 FOR X=1 TO 39 
40 READ AT(X) 

50 READ CT(X) 

60 NEXT X 

69 REM *** LE MAIN MENU *** 

70 PRINT CHRT <147) 

80 PRINT "SECRET CODE PROGRAM" 

90 PRINT 

100 PRINT "TYPE THE NUMBER OF YOUR CHOICE" 
110 PRINT "THEN PRESS THE (RETURN) KEY." 
120 PRINT 

130 PRINT "1)ENCODE A MESSAGE" 

140 PRINT "£)DECODE A MESSAGE" 

150 PRINT 

160 INPUT "WHICH ONE";CH 
170 IF CH <1 OR CH> £ THEN 160 
180 ON CH GOTO £00,500 
199 REM *** ENCODE ROUTINE *** 

£00 PRINT CHRT(147) 
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£10 

PRINT "TYPE YOUR MESSAGE, TWO LINES" 


££0 

PRINT "MAXIMUM. NO COMMAS ALLOWED!" 


£30 

PRINT "TYPE ’0’ AND PRESS (RETURN)" 


£40 

PRINT "TO GO TO THE MAIN MENU." 


£50 

PRINT 


£60 

PRINT "WHAT IS YOUR MESSAGE" 


£70 

input m 


£S0 

IF M$="0" THEN 70 


£90 

PRINT 


300 

PRINT "NOW ENCODING_" 


310 

PRINT 


3£0 

PRINT "HERE’S THE CODE:" 


330 

PRINT 


340 

FOR X=1 TO LEN(M$> 


350 

FOR M=1 TO 39 


360 

IF MID*(M*,X,1>=A*(M) THEN PRINT C*(M>; 


370 

NEXT M 


380 

NEXT X 


390 

PRINT 


400 

PRINT 


410 

PRINT "PRESS (SHIFT) TO CONTINUE." 


4£0 

GOSUB 3000 


430 

GOTO 70 


499 

REM *** DECODE ROUTINE *** 


500 

PRINT CHR$(147) 


510 

PRINT "TYPE YOUR CODED MESSAGE, TWO LINES", 


5£0 

PRINT "MAX. AT ONE TIME, PLEASE!" 


530 

PRINT "TYPE ’0’ AND PRESS (RETURN)" 


540 

PRINT "TO RETURN TO THE MAIN MENU." 


550 

PRINT 


560 

PRINT "WHAT IS THE CODED MESSAGE" 


570 

INPUT C% 


580 

IF C$="0" THEN 70 


590 

PRINT 


600 

PRINT "NOW DECODING_" 


610 

PRINT 


6£0 

PRINT "HERE’S THE MESSAGE:" 


630 

PRINT 

* 

640 

FOR X=1 TO LEN(C$) 


650 

FOR M=1 TO 39 


660 

IF MID*(C*,X, 1)=C*(M) THEN PRINT A*(M); 


670 

NEXT M 


680 

NEXT X 


690 

PRINT 


700 

PRINT 


710 

PRINT "PRESS (SHIFT) TO CONTINUE." 


7£0 

GOSUB 3000 


730 

GOTO 70 


1000 DATA A, F, " ", B, H, C, U, D, Y, E, Z, F, 0, 6, J, H, L 


1010 DATA I, Q, J, S, K, W, L, A, M, C, N, M, 0, T, P, V, Q, P 


10£0 DATA R,K,S,D,T,G,U,B,V,E,W, I, X, N, Y, X, Z, R 


1030 DA FA . , . , 0, 9, 1,7, £, 3, 3, 0, 4, £, 5, 1 


1040 DATA 6, 4, 7, 5, 8, 6, 9, 8, ?, ? 


£999 REM *** WAIT ROUTINE *** 


3000 WAIT 653,1 


3010 WAIT 653,1,1 


30£0 RETURN 
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IBM PC 

1 REM *** SECRET CODE IBM-FC *** 

9 REM *** DIMENSION CODE ARRAYS *** 

10 DIM AT(64) 

20 DIM CT<64> 

30 FOR X = 1 TO 40 
40 READ AT(X) 

50 READ CT(X) 

60 NEXT X 

69 REM *** MAIN MENU *** 

70 CLS 

80 PRINT "SECRET CODE PROGRAM" 

90 PRINT- 

100 PRINT "SECRET CODE PROGRAM" 

110 PRINT "THEN PRESS (ENTER)." 

120 PRINT- 

130 PRINT "1)ENCODE A MESSAGE" 

140 PRINT "2)DECODE A MESSAGE" 

150 PRINT- 

160 INPUT "WHICH ONE";CH 
170 IF CH<1 OR CH>2 THEN 160 
180 ON CH GOTO 200,500 

199 REM *** ENCODE ROUTINE *** 

200 CLS 

210 PRINT "TYPE YOUR MESSAGE" 

220 PRINT "2 LINES MAXIMUM AT A TIME" 

230 PRINT "OR TYPE '0' AND PRESS" 

240 PRINT "(ENTER) FOR MENU." 

250 PRINT- 

260 PRINT "WHAT IS YOUR MESSAGE" 

270 INPUT MT- 

280 IF MT-= 11 0“ THEN 70 

290 PRINT 

300 PRINT "NOW ENCODING. . . " 

310 PRINT 

320 PRINT "HERE'S THE CODE:" 

330 PRINT 

340 FOR X1 TO L..EN < MT) 

350 FOR M--1 TO 40 

360 IF MIDT-(MT, X „ 1)=AT CM) THEN PRINT CT(M); 

370 NEXT M 

380 NEXT X 

390 PRINT 

400 PRINT 

410 PRINT "PRESS (ENTER) TO CONTINUE" 

420 GOSUB 3000 
430 GOTO 70 

499 REM *** DECODE ROUTINE *** 

500 CLS 

510 PRINT "TYPE A CODED MESSAGE" 

520 PRINT "2 LINES MAXIMUM AT A TIME" 

530 PRINT "OR TYPE '0' AND PRESS" 

540 PRINT "(ENTER) FOR MENU." 

550 PRINT 

560 PRINT "WHAT IS THE CODE" 

570 INPUT CT 

580 IF CT”"0" THEN 70 
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590 PRINT 

600 PRINT "NOW DECODING..." 

610 PRINT 

620 PRINT "HERE'S THE MESSAGE:" 

630 PRINT 

640 FOR X=1 TO LEN(C$) 

650 FOR M=1 TO 40 

660 IF MID*(C*,X,1)=C*(M) THEN PRINT A$(M>;; 

670 NEXT M 
680 NEXT X 
690 PRINT 
700 PRINT 

710 PRINT "PRESS (ENTER) TO CONTINUE." 

720 GOSUB 3000 
730 GOTO 70 

1000 DATA A , F , " ",“ ",B,H,C,U,D„Y,E,2,F,0,G,J,H,L 
1010 DATA I , Q, J , S, K , W , L , A , M, C, N. M, 0 , T , P, V, G, P 
1020 DATA R,K,S,D,T.G,U,B,V,E,W,I,X,N,Y,X.Z,R 
1030 DATA ...,0,9,1,7,2,3,3,0,4,2,5,1 
1040 DATA 6,4,7,5,8,6,9,8 ,,?,? 

3000 INPUT RT 
3010 RETURN 

TI-99/4A 

1 REM *** SECRET CODE TI99/4A *** 

9 REM ■**■'* DIMENSION CODE ARRAYS *** 

10 DIM AT(41) 

20 DIM CT(41> 

30 FOR X“1 TO 39 
40 READ AT(X) 

50 READ CT(X) 

60 NEXT X 


o 
•„-> / 

REM *•** 

MAIN MENU *** 

70 

,-n rt , | . 5 

L- i„. i... 

. E A R 

GO 

PRINT " 

SECRET CODE PROGRAM " 

90 

PRINT 


j. 00 

PR I NT 

"TYPE A NUMBER," 

110 

PRINT 

"THEN PRESS (ENTER) . " 

120 

PR I NT 


130 

PRINT 

J. .■ [i- i V 8 0 0 h. n ! ¥ !1 'i -Si 8 - A G l-L ! ' 

140 

, O O T K i r 

1 1 L 1 -1 1 

"2)DECODE A MESSAGE" 

•J 

X 

PR I NT 


.1 &U 

PRINT 

"WHICH ONE" ; 

170 

T K j 17.> l j T' 

X INI 1 

Ci : 

I o,~. 

IF CH< 

1 THEN 160 

•J p/'v 

J j.r p|..j 

2 THEN 160 

20 0 

ON CH 

iJU i U 2 1 O , 4 /O 

20 V 

n--k- 

S ENCODE rcOLM iiVfc: **■* 


i" T'< i !'•■! i 

i • , y {•••• jl y U Li! \ ! v 1 Lc 5 G f- ■) E .' 1 

'2.Su 

PRINT 

"2 LINES MAXIMUM PLEAS! 

240 

fr in r 

"NO COMMAS ALLOWED 1 " 

250 

PRINT 

"TYPE "O' AND PRESS" 

260 

PR I NT 

"(ENTER) FOR MENU , " 

270 

f PRINT 


280 

PR INI 

1: W ! -i A T I S Y 0 L! R M E. S S A G E ! 1 

290 

INPUT 


MiO 

.Li- 1 ! •+■■ 

; PRINT 

I l-ii-N /U 
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320 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

469 

470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 

Cr 6 0 

670 

680 

690 

700 

710 

720 

730 

740 

760 

770 

780 

790 


PRINT "NOW ENCODING...." 

PRINT 

PRINT "HERE'S THE CODE;" 

PRINT 

FOR X = 1 TO LEW(MT) 

FOR M=1 TO 40 

IF SEGT (MT , X , 1) “AT (1*1) THEN 390 ELSE 
PRINT CT(M>; 

NEXT M 


CONTINUE." 


PRINT 
PRINT 

PRINT "PRESS (ENTER) 

GOSUB 780 
GOTO 70 

REM *■#* DECODE ROUTINE *** 

CALL CLEAR 

PRINT "TYPE A CODED MESSAGE--" 

PRINT "2 LINES MAXIMUM PLEASE." 
PRINT "NO COMMAS ALLOWED!" 

PRINT "TYPE' '0' AND PRESS" 

PRINT "(ENTER) FOR MENU.,” 

PR I NT 

PRINT "WHAT IS THE CODE" 

INPUT COT 

IF C0T="0” THEN 70 
PRINT 

PRINT "NOW DECODING...." 

PRINT 

PRINT "HERE'S THE MESSAGE;;" 

PR I NT 

FOR X=1 TO LEM(COT) 

FOR M=1 TO 40 

IF SEGT (COT , X , 1) : “CT <M) THEN 650 ELSE 
PRINT AT(M); 

NEXT M 
NEXT X 
PR I NT 
PR I NT 

PRINT "PRESS (ENTER) TO CONT." 

GOSUB 780 
GOTO 70 

DATA A rr 11 ts i.i r- I i n y F” 7 P 

DATA I , Q , J , S , K . W , L , A ,, M . C N, M , 0 . T P , 
DATA R , K, S, D , T, G , UB , V, E , WI , X , N, Y,. 

DA i A . . „ . O a 9 . 1 I, / , .1-1. . ■„> ., O . 4 ,j .iJ- a -J a 1 

DATA 6 ,4 v 7,5' 8 ' 6 ‘9j 8 '?,? 

INF’UT FIT 
RETURN 


TRS-80 Color Computer 

1 REM *** SECRET CODE TRS-80 COLOR *** 
3 REM *** DIMENSION CODE ARRAYS *** 

10 DIM AT(40) 

£0 DIM CT(40) 

30 FOR X=1 TO 39 
40 READ AT(X) 

50 READ CT(X) 

60 NEXT X 


400 


4 0 0 



v 7 r;, 

A , i ‘ 
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69 REM *** MAIN MENU *** 

70 CLS 

80 PRINT "SECRET CODE PROGRAM" 

90 PRINT 

100 PRINT "TYPE A NUMBER" 

110 PRINT "THEN PRESS (ENTER)." 

1£0 PRINT 

130 PRINT "1)ENCODE A MESSAGE" 

140 PRINT "£)DECODE A MESSAGE" 

150 PRINT 

160 INPUT "WHICH ONE";CH 
170 IF CH <1 OR CH)£ THEN 160 
180 ON CH GOTO £00,500 
199 REM *** ENCODE ROUTINE *** 

£00 CLS 

£10 PRINT "TYPE YOUR MESSAGE" 

££0 PRINT "£ LINES MAX. AT A TIME" 

£30 PRINT "OR TYPE ’0’ AND PRESS" 

£40 PRINT "(ENTER) FOR MENU." 

£50 PRINT 

£60 PRINT "WHAT IS YOUR MESSAGE" 

£70 INPUT M$ 

£80 IF M$="0" THEN 70 
£90 PRINT 

300 PRINT "NOW ENCODING_" 

310 PRINT 

3£0 PRINT "HERE’S THE CODE:" 

330 PRINT 

340 FOR X-l TO LEN(M$) 

350 FOR M=1 TO 39 

360 IF MID$(M$,X,1)=A$(M) THEN PRINT C$(M); 

370 NEXT M 

380 NEXT X 

39© PRINT 

400 PRINT 

410 PRINT "PRESS (ENTER) TO CONTINUE." 

4£0 GOSUB 3000 
430 GOTO 70 

499 REM *** DECODE ROUTINE *** 

500 CLS 

510 PRINT "TYPE A CODED MESSAGE" 

5E0 PRINT "£ LINES MAX. AT A TIME" 

530 PRINT "OR TYPE ’0’ AND PRESS" 

540 PRINT "(ENTER) FOR MENU." 

550 PRINT 

560 PRINT "WHAT IS THE CODE" 

570 INPUT 0$ 

580 IF C$="0" THEN 70 
590 PRINT 

600 PRINT "NOW DECODING...." 

610 PRINT 

6£0 PRINT "HERE’S THE MESSAGE:" 

630 PRINT 

640 FOR X=1 TO l_EN(C$) 

650 FOR M=1 TO 39 

660 IF MID$(C$,X,i)=C*(M) THEN PRINT A$(M); 
670 NEXT M 
680 NEXT X 
690 PRINT 
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700 PRINT 

710 PAINT"PRESS (ENTER) TO CONT. " 

720 GOSUB 3000 
730 GOTO 70 

1000 DATA* A,F, " ",B,H,C,U,D,Y,E, Z,F,0,G, J, H, L 

1010 DATA I, Q, J, S, K, W, L, ft, M, C, N, M, 0, T, P, V, Q, P 

1020 DATA R, K, S, D, T, G, U, B, V, E, W, I, X, N, Y, X, Z, R 

1030 DATA . , . , 0, 9, 1, 7, 2, 3, 3, 0, 4, 2, 5, 1 

1040 DATA 6, 4, 7, 5, Q, 6, 9, 8, ?, ? 

3000 INPUT R$ 

3010 RETURN 

TRS-80 Model III and Model 4 

1 REN *** SECRET CODE TRS-80 MODELS 3 AND 4 BASIC *** 

9 REN *** DIMENSION CODE ARRAYS *** 

10 DIM A$(39) 

20 DIM C$(39) 

30 FOR X=1 TO 39 
40 READ A$(X) 

50 READ C$(X) 

60 NEXT X 

69 REM *** MAIN MENU *** 

70 CLS 

80 PRINT "SECRET CODE PROGRAM" 

90 PRINT 

100 PRINT "TYPE A NUMBER" 

110 PRINT "THEN PRESS (ENTER)." 

120 PRINT 

130 PRINT "DENCODE A MESSAGE" 

140 PRINT "2)DECODE A MESSAGE" 

150 PRINT 

160 INPUT "WHICH ONE";CH 
170 IF CH<1 OR CH>2 THEN 160 
180 ON CH GOTO 200,500 

199 REM *** ENCODE ROUTINE *** 

200 CLS 

210 PRINT "TYPE YOUR MESSAGE" 

220 PRINT "2 LINES MAX.(NO COMMAS)" 

230 PRINT "OR TYPE ’O' AND PRESS" 

240 PRINT "(ENTER) FOR MENU." 

250 PRINT 

260 PRINT "WHAT IS YOUR MESSAGE" 

270 INPUT m 

280 IF M$="0" THEN 70 

290 PRINT 

300 PRINT "NOW ENCODING_" 

310 PRINT 

320 PRINT "HERE’S THE CODE:" 

330 PRINT 

340 FOR X—1 TO LEN(M$) 

350 FOR M=1 TO 39 

360 IF MID*(M*,X,1)=A*(M) THEN PRINT C$(M); 

370 NEXT M 
380 NEXT X 
390 PRINT 
400 PRINT 

410 PRINT "PRESS (ENTER) TO CONTINUE"; 

420 GOSUB 3000 
430 GOTO 70 
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499 REM *** DECODE ROUTINE *** 

500 CLS 

510 PRINT "TYPE A CODED MESSAGE," 
520 PRINT "2 LINES MAX.(NO COMMAS)" 
530 PRINT "OR TYPE ’O’ AND PRESS" 
540 PRINT "(ENTER) FOR MENU." 

550 PRINT 


560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 


PRINT "WHAT IS THE CODE" 

INPUT C* 

IF C$="0" THEN 70 
PRINT 

PRINT "NOW DECODING_" 

PRINT 

PRINT "HERE’S THE MESSAGI 
PRINT 

FOR X=1 TO LEN(C$) 

FOR M=1 TO 39 
IF MID*(C*,X,1)=C*(M) 

NEXT M 
NEXT X 
PRINT 
PRINT 

PRINT "PRESS (ENTER) TO CONTINUE"; 
GOSUB 3000 
GOTO 70 


THEN PRINT A*(M) 


1000 

DATA 

A, F, " " , B 

1010 

DATA 

I, Q, J, S, K, W, L 

1020 

DATA 

R, K, S, D, T, G, U 

1030 

DATA 

. , . , 0,9, 1,7,2 

1040 

DATA 

6 ,4,7,5,8,6,9 

3000 

INPUT 

R* 


3020 RETURN 


L 


VIC-20 


1 REM ■*** SECRET CODE VIC—20 ■*** 

9 REM *** DIMENSION CODE ARRAYS *** 

10 DIM A$(39) 

£0 DIM C$(39) 

£9 REM *** INITIALIZE CODE ARRAYS *** 
30 FOR X=i TO 39 
40 READ A$(X) 

50 READ C*(X) 

60 NEXT X 


69 REM *** MAIN MENU *** 

70 PRINT CHR$(147) 

80 PRINT "SECRET CODE PROGRAM" 
90 PRINT 

100 PRINT "TYPE A NUMBER," 

110 PRINT "THEN PRESS (RETURN). 
i£0 PRINT 


130 PRINT "1)ENCODE A MESSAGE" 
140 PRINT "£)DECODE A MESSAGE” 
150 PRINT 

160 INPUT "WHICH ONE";CH 
170 IF CH <1 OR CH)£ THEN 160 


180 ON CH GOTO £00,500 

199 REM *** ENCODE ROUTINE *** 

£00 PRINT CHR$(147) 

£10 PRINT "TYPE YOUR MESSAGE" 


N 
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220 PRINT "2 LINES MAX-NO COMMAS!" 

230 PRINT "TYPE »0» AND PRESS" 

240 PRINT "(RETURN) FOR MENU." 

250 PRINT 

260 PRINT "WHAT IS YOUR MESSAGE" 

270 INPUT M* 

280 IF M*="0" THEN 70 
290 PRINT 

300 PRINT "NOW ENCODING_" 

310 PRINT 

320 PRINT "HERE’S THE CODE:" 

330 PRINT 

340 FOR X=1 TO LEN(M*> 

350 FOR M=1 TO 39 

360 IF MID*(M*,X,i)=A*(M) THEN PRINT C*(M>; 

370 NEXT M 
380 NEXT X 
390 PRINT 
400 PRINT 

410 PRINT "PRESS (SHIFT) TO CONT." 

420 GOSUB 3000 
430 GOTO 70 

499 REM *** DECODE ROUTINE *** 

500 PRINT CHR*<147> 

510 PRINT "TYPE A CODED MESSAGE, " 

520 PRINT "2 LINES MAX-NO COMMAS!" 

530 PRINT "TYPE ’0’ AND PRESS" 

540 PRINT "(RETURN) FOR MENU." 

550 PRINT 

560 PRINT "WHAT IS THE CODE" 

570 INPUT C* 

580 IF C*="0" THEN 70 
590 PRINT 

600 PRINT "NOW DECODING_" 

610 PRINT 

620 PRINT "HERE’S THE MESSAGE:" 

630 PRINT 

640 FOR X=1 TO LEN(C$> 

650 FOR M=1 TO 39 

660 IF MID$ <C$, X, 1)=C$(M> THEN PRINT A*(M>; 

670 NEXT M 
680 NEXT X 
690 PRINT 
700 PRINT 

710 PRINT "PRESS (SHIFT) TO CONT." 

720 GOSUB 3000 
730 GOTO 70 

1000 DATA A, F, " ", " ", B, H, C, U, D, Y, E, Z, F, 0, G, J, H, L 
1010 DATA I,Q, J,S, K, W, L,A,M,C,N,M, 0, T, P, V, Q, P 
1020 DATA R, K,S, D, T, G, U,.B, V, E, W, I, X, N, Y, X, Z, R 
1030 DATA . , . , 0, 9, 1,7, 2, 3, 3, 0, 4, 2, 5, 1 
1040 DATA 6, 4, 7, 5, 8, 6, 9, Q, ?, ? 

2999 REM *** WAIT ROUTINE *** 

3000 WAIT 653, 1 
3010 WAIT 653,1,1 
3020 RETURN 
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BONUS PROGRAM #5 

GRAPHIC FANTASY 

A GRAPHIC FANTASY is something that most people just dream 
of,. E<ut computers, besides being functional , can take you 
on wonderful graphic adventures. GRAPHIC FANTASY is a 
program that lets you enter the world of computer 
generated graphics. For many hours it generates patterned 
images (on most com p u t. e rs i n radian t col o r s) and geometri c 
shapes something a k in to pyr a m i cl s, orient a .1 r u g s , an d t h e 
cells of plants. 


ADAM 

1 REM *** GRAPHIC FANTASY ADAM *** 

10 GR: COLOR = 1 

20 x = 1 : y = 1 ; kol = 1 

30 xi = -1: yi = 1 

40 COLOR = kol 

50 k = INT(RND(l )*100) 

60 IF k = 1 THEN kol = kol+1 
70 IF kol > 15 THEN kol = 1 
80 x = x+xi: y = y+yi 
90 IF x < 1 THEN x = 1: xi = -xi 

100 IF x > 19 THEN x = 19: xi = -xi 

110 IF y < 0 THEN y = 0: yi = -yi 

120 IF y > 19 THEN y = 19: yi = -yi 

130 PLOT x, y 
140 PLOT x+19, y 
150 PLOT x, y+20 
160 PLOT x+19, y+20 
170 GOTO 40 

Apple II and Apple lie 

1 REM **••* GRAPHIC FANTASY APPLE ***• 

2 REM *** SHAPE TABLE INDEX *** 

5 HOME : HGR2 : POKE 232,252: POKE 233,29 
10 CB = 7676:7. ~ 4 


20 POKE 

CB , B 

: POKE CB + 

1 ,0 





30 FOR 1. 

_0C - 

1 TO 8 






40 POKE 

CB + 

(2 * LOC) , 

(10 * 

LOC 

■+• 8) 



50 POKE 

CB + 

(2 * LOC -i- 

1 ) , 0 





60 NEXT 

LOC 







69 REM 

#** 

SET COLORS 

*•#* 





70 KA = 

I NT 

( RND (1) * 

7) + 

1 : 

IF KA = 4 

THEN 

70 

SO KB = 

I NT 

( RND (1) * 

7) + 

1 : 

IF KB = 4 

THEN 

80 

90 KC = 

I NT 

< RND (1 ) * 

7 > + 

1 : 

IF KC = 4 

THEN 

90 

100 KD = 

I NT 

( RND (1) 

* 7) -1- 

1 : 

IF KD = 

4 THEN 

100 

105 CB = 

CB + 

18 






109 REM 


INITIALIZE 

SHAPE 

TABLES *** 



110 I - 

ABS 

(Z - 4) 







120 GOSUB 700 

130 S = 10: ROT-- 0s SCALE- 2 

139 REM ***READ GRAPHIC COORDINATES AND COLORS *■** 

140 READ R0,A„B 
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1 50 

IF R0 = - 1 THEN 370 


160 

FOR CO = A TO B STEF 1 S 


1 70 

KO = KA 


180 

GOSUB 500 


190 

NEXT CO 


200 

READ CO,A,B 


210 

FOR RO = A TO B STEP S 


220 

KO = KB 


230 

GOSUB 500 


240 

NEXT RO 


250 

IF CO = ~ 1 THEN 370 


260 

READ RO,A,B 


270 

FOR CO = A TO B STEP - S 


280 

KO = KC 


290 

GOSUB 500 


300 

NEXT CO 


310 

READ CO,A,B 


320 

FOR RO = A TO B STEP - S 


330 

KO = KD 


340 

GOSUB 500 


350 

NEXT RO 


360 

GOTO 140 


370 

FOR T = 1 TO 1500 


380 

NEXT T 


390 

RESTORE 


400 

GOTO 70 


499 

REM *** ERASE OVER CHARACTER *** 


500 

SH = SH + Is IF SH > 4 THEN SH = 1 


510 

HCOLOR-- 0 


520 

DRAW SH + ( ABS (Z - 4)) AT CO,RO 


529 

REM *** DRAW CHARACTERS ON SCREEN *** 


530 

HCOLOR~ KO 


540 

DRAW SH + Z AT CO,RO 


550 

RETURN 


699 

REM *** SHAPE TABLE ROUTINE *** 


700 

FOR ST ~ 1 •+• Z TO 4 + Z 


710 

FOR LOC = 0 TO 9 


720 

IF LOC = 9 THEN POKE CB + (ST * 10 + 9),Os GOTO 750 

730 

D = INT ( RND (1) * 256): IF D = 0 THEN 730 


740 

POKE CB + (10 * ST + LOC), D 


750 

NEXT LOC 


760 

NEXT ST 


770 

RETURN 


1000 

DATA 90,130,140,150,90,100,100,140,130,120, 

100,90 

1010 

DATA 80,120,150,1 60,80,1 10, .1. 10 , 150 , 120,1 10 , 

110,80 

1 020 

DATA 70,1 i 0,160,170,70,120,120,160,110,100, 

120,70 

1030 

DATA 60,100,170,180,60,130,130,170,100,90„1 

30,60 

.1. 040 

DATA 50,90,180,190,50,140,140,1SO,90,80,140 

, 50 

1050 

DATA 40,80,190,200,40,150,150,190,80,70,150 

,40 

1 060 

DATA 30,70,200,210,30,160,160,200,70,60,160 

, 30 

1 070 

DATA 20.60,210,220,20, 170,170,210,60,50,170 

, 20 

1 080 

DATA -1,-l,-l,"11,-i,-l,-l,-l,-l,-l,-i 


Atari 



1 re:: 

-• x-** GRAPHIC FANTASY ATARI *** 


o ( p p 

v ! ***• GITA CHIP REQUIRED *** 


10 8 

i! API! ICG 11 


■? 9 p 

EM •*** PICK COLORS AND RANDOM COORDINATES *#* 


O C > 1 .; ' 

1= T NT (RND ( 1 > -x 1 5 ) + l 
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30 RO—INT <RND(1)*191) 
40 C0--1 NT < RND (1) *79 > 


49 R 

EM *** 

DRAW STARBU 

50 C 

01...OR K 

0 

60 F 

LOT 40 

, 96 

70 E 

RAWTO 

CO , RO 

80 X 

= X+1 " Q 

4<0 

90 I 

F X==7F.5 

THEN 130 

120 

GOTO 2 

0 

129 

REM ** 

* INITIAL I ZE 

1 7\ o 

r'i —“ 'J 


140 

p-. .70 


150 

C-191 


160 

T"j.v 


i 7(-j 

K'f'h:; T NT 

(RND ( 1 ) *8) 

179 

REM *■* 

* DRAW FRAME 

ISO 

COLOR 

!<□ 

190 

PLOT D 

A 

V *~ l 

200 

DRAWTO 

B , A 

210 

DRAWTO 

B,C 

220 

DRAWTO 

D, C 

230 

DRAWTO 

D,A 

240 

A --R-i - 1 


250 

B“B-1 


260 

C--C-1 


270 

i 


r:« o 

x :::: x :i. 


290 

IF X >2 

”7 ”rijphi y - i , 

300 

IF A<0 

np a 7o tijc 

i i \ rn f 7 i ill 


GOFu 1 

/ U 


* * * 


F R A !i IN G C 0 0 R DIN A T E 


i o 


Commodore 64 

1 REM *** GRAPHIC FANTASY 64 *** 

10 Z=1 
£0 S—1 

30 PRINT CHR*(147) 

40 POKE 53£80,0 
50 POKE 53£81,0 
60 DUM^INT(RND <-TI)) 

69 REM *** SET COLORS *** 

70 KA=INT(RND(1)*4)+1 
80 KB=INT(RND(1)*4)+4 
90 KC=INT < RND(1)*4)+8 
100 KD=INT(RND(1)*4)+1£ 

109 REM *** INITIALIZE SCREEN AND CHARACTER VARIABLES *** 

110 CB=55£96 
1£0 CH=160 
130 SB=10£4 

139 REM *** READ GRAPHIC COORDINATES AND COLORS *** 

140 READ RO,A,B 

150 IF R0=—1 THEN 370 

160 FOR CQ=A TO B STEP S 

170 KO=KA 

180 GOSUB 500 

190 NEXT CO 

£00 READ CO,A,B 

£10 FOR RQ=A TO B STEP S 

££0 KO=KB 

£30 GOSUB 500 
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240 

NEXT RO 



250 

IF C0=-1 THEN 370 



260 

READ RO,A,B 



270 

FOR CO=A TO B STEP -S 



280 

KO=KC 



290 

GOSUB 500 



300 

NEXT CO 



310 

READ CO,A,B 



320 

FOR RO=A TO B STEP -S 



330 

KO=KD 



340 

GOSUB 500 



350 

NEXT RO 



360 

GOTO 140 



370 

FOR T=1 TO 1500 



380 

NEXT T 



390 

S=INT(RND(1)*5)+1 



400 

RESTORE 



410 

Z = Z + 1 



420 

GOTO 40 



499 

REM *** RANDOMLY PICK CHARACTER *** 



500 

IF Z/3=INT(Z/3) THEN CH=81 



510 

IF Z/5=INT(Z/5) THEN CH=8S 



520 

IF Z/7=INT(Z/7) THEN CH=90 



529 

REM *** DRAW CHARACTERS ON SCREEN *** 


530 

POKE CB+CQ+40*RO,KO 



540 

POKE SB+CO+40*RO, CH 



550 

RETURN 



1000 

DATA 12, i9, 20, 20, 12, 13, 13, 20, 18, 18, 1 


i l 

1010 

DATA 11, 18, 21,21, 11, 14, 14,21, 17, 17, 1 

4, 

10 

1020 

DATA 10, 17, 22, 22, 10, 15, 15, 22, 16, 16, l 

rzr 

w , 

9 

1030 

no TO Q ip, P~2 Q ip, ip 51 j cr •, 1“ 'P, 

8 


1040 

DATA 8, 15, 24, 24, 8, 17, 17, £4, 14, 14, 17, 

7 


1050 

DATA 7, 14, £5, 25, 7. 18, 18, 25, 13, 13, 18, 

6 


1060 

DATA 6, 13, 26, 26, 6, 19, 19, 26 , 12, 12, 19, 

5 


1070 

DATA 5, id, d i , d l , Lj - d 0, d 0 j d 7• 1 i ( 1 1 ^ d I? •< 

4 


1080 

DATA 4. 11,28, £8, 4, £1, £1,28, 10, 10, 21, 

3 


1090 

DATA 3, 10, £9, £9, 3, 22, 22. £9, 9, 9, £2, 2 



1 100 

DATA 2, 9, 30, 30, 2, £3, 23, 30, 8. 8, 23, 1 



1 1 10 

DPT A 1 j 8, vil, , o 1, 7 ? ~7 ^ A & $ 



1 120 

DATA 0, 7, 31, — 1 , “1, “1, - 1 , -1, “1 



1130 

DATA -1,-1,-1,-1,-1,-1,-1 



IBM PC 



10 R 

911 **•* GFYhPHIC FAHT rtb’Y l C! 1 ! : -'C **# 



20 KEY OFF 



30 R 

EM ¥■**■ .H U I F AL .1.7# OhR FaBI. 23 *** 



oo S 

7 KEEN O , , 0 



fvlu W 

.1 11 1 H 80 



30 F; 

" 5; s " ' 



90 R 

iNDOM 1 7E 

CH-2 1 2 

REI1 •*** Ha.FH L.ODP **■* 



1 :!. t'j 



1 20 

READ A, 3 



;i 50 

i. F 8■•■■■■ i. ! HEN 580 



1 : ! 0 

■OR CO:-: A |Q £ j £_p Q 



150 

YOSOh i Cii 



160 NEX! CO 
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1 7 0 

C0 = B 




:!.80 

REAR C , I) 




J 90 

IF D=.i THEM 

380 



200 

foe f^ci-c io r: 

STEP S 



21 0 

60SU8 lOOO 




220 

NEXT EO 




■ . . ' -f i \ 

R0“ 0 




240 

READ E.F 




250 

! F F ~.1 THEM 

380 



260 

FOR CO-E IO 1- 

STEP -S 



2 70 

GUSLI B :l. 




280 

MExl CO 




290 

cn-F 




300 

RE.h.O 6 n H 




. 1 . u 

‘ > {') 

f- OR RO-tt i U !■• 




330 

00 SUP 1. OOO 




340 

NEXT EO 




:;.5o 

EO~H 




.. 

3 / 0 

l.ViO 1 U l O’ ■ 

REM x-xx- OEL Ft v 

( q TEPS 



330 

FOR l-j 10 I !r 

<.jO 



590 

hex i r 




400 

= | M j ( RMt > < 1 J X 

51 + I 



.<!■ 1 (..) 

PEHFORE 




4 20 

l ~ 2. i 





Rf::M *** RAN DC 

HI... V pick a 

TAEACTER8 x-x-x- 


.1. 00- 

' if 

■ ) 1 HEN C 

-l~4 


! i > j ( 

j.F /. / 5-“ 1 ! • ! 1 <■./. 

A3) !HEN C 

-1=2 


;{ Qv( 

1 IF :i./4■■■IMl '/ 

/ 4 i ! HEM Cl 

•1-220 


1OJv 

! i::: Mas ! ! i ! i 7 

/ 5 ) IT II. .1J C 

■i ~Q 


1 0-d! 

if r -.m f >/: 

/ / .' ! HEM C 

-1=0 


O'Of. 

IF // i m ; , , 

/~'n I FIEM G 

■N 23 9 


1 Oov 

, i-vr-f i x-xx r.F'. -'a 

CHARACTER 

-Yi 



.'I..- i-i i ;r.\ r’ • < L 

MV || | ! M-jPifc .; ( 

h 4 - J 

| “■ J * 



;{. O'? 1 ' 

EE I'LJRM 




f »■ > • 

1 F-'i i ! f i 2 •, '■ B ... /:• ,, 

2 5 ,, ? 8 ,, 5 „ 2 3 

, 4 , .3 ,, ? 7,4,22 


V«j i < 

■ OM. I F; />„ <*• v 

„ 5 ,. 4 , y 6 ... 0, 

i. .. /... 5 ,. •;:■■ t , x. . pi.. ? 5 





"- 1 . ■ J-; 4 o h 'Q' a 


V‘f’uj •• 

,(>!•••['!' V: ;{. / M j. <’»•••V 

n j. 1 0 , .!. 6 >1 

7 i , 10,16,, 1 1 , 10.. Yv n .1 

'! . ! c;: i 

0 K '-,| 


J”' j J ‘ ’* ' ‘ 

t v t a.. •[ • i a T 



1 : 1 A ■ I , - . 1 . 


•1 ■» -i:- =i "T >■ • ■! » .1 » r, 


TI-99/4A 
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109 REM *** SELECT LE COLOURS *** 

1 10 CALL COLOR (2,1 IMT (RND*6) +3 , I NT (RND*6) +3) 

120 CALL COLOR(5,I NT(RND*8)+4,I NT(RND*S)+1) 

130 CALL COLOR(6,INT(RND*4)+8 , I NT(RND*15)+1) 
140 CALL COLOR(8,INT(RND*4)+12,INT(RND*5)+1) 
150 CALL COLOR(13,1NT(RND*14)+3,1) 

160 CALL COLOR <14,INT <RND*iO)+3,1) 

169 REN *** READ GRAPHIC COORDINATES *•*•* 

170 READ A,B 

130 IF A~~1 THEN 460 

.1.90 FOR CO=A TO B STEP S 

200 GOSIJB 500 

210 NEXT CO 

220 C0=C0--1 

230 READ A,B 

240 IF A- — i. THEN 460 

250 FOR RO=A TO B STEP S 

260 GOSIJB 500 


270 

N E X T R 0 


280 

RO--RO- .1. 


290 

READ A, B 


300 

IF A=—.1. THEN 

4 6 0 

310 

FOR CO-A TO B 

STEP 

320 

GOSUB 500 


330 

NEXT CO 


340 

CO-CQ+1 


350 

READ A,B 


360 

IF ft=.1 THEN 

460 


370 FOR RG"-A TO B STEP -S 
380 GOSUB 500 
390 NEXT RO 
400 R0-RO+1 


430 I...!.... HCHAR (12,17 , CH) 

440 GOTO 110 

459 REM •*•** SET DRAWING STEPS *** 

460 S=INT(RND*5)+2 


499 

REI 

V 1 #** CHOOSE 

LE CHARACTERS 

-x x- 

500 

r i vr 

L 1 

2/2== I NT (2/2 

) THEN 510 ELSE 

520 

510 

C! 

-136 



520 

T C" 

.1. l 

t.. t •_.*..l i x i \ / ■.„» 

) THEM 530 EL SE 

540 

y~i ! T . o 

p j..|, 

=42 



540 

I F 

L / 5 1 N f ^ L / 5 

) THEN 550 ELSE 

—j M 

550 

n | ■ 

"64 



560 

11 “ 

2/6=1 NT(2/6 

> THEN 570 ELSE 

5R0- 

570 

CH 

“■79 



580 

IF 

2/7=I NT(Z/7 

)THEN 590 ELSE 

600 

590 

CH- 

-94 



600 

IF 

2 /Q --1 NT (Z/8 

)THEN 610 ELSE 

6 2! 0 

610 

CH 

— 1 ?R 



/■, ■{ '/ 

REi 

M *** DEFINE 

BOUNDERIES *** 


JL. OA 

IF 

RO>24 THEN 

63' j FI /••,40 


630 

RO 




640 

T IT 

A. 1 

ROC 1 THEN 7 

00 


650 

IF 

C0< 4 THEN 6 

O- LLbE o/U 
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660 
670 
680 
68 ? 
690 
700 
710 
720 
730 
740 
750 
760 
770 


CO =4 

IF CO>28 THEN 680 ELSE 690 
C 0=2 8 

REM *** DRAW CHARACTERS ON SCREEN *■*■* 

CALL HCHAR(RO,CO,CH) 

RETURN 

DATA 16,17,12,13,17,15,13,11, 15,18,1 1 , 14,18,14 
DATA 14,19,10,15,19,13,15,9,13,20,9,16,2 
DATA 12,21,8, 17,21,11,17,7,13. , 22,7,18,22 
DATA 18,6,10,23,6,19,23,9,19,5,9,24,5,20, 

PAT A T'O A P r ? er i 4 CM -Dtr *7 •{ t "7 rsz. t 

!._•! i i n •»— - «; 1 i L 1 n j_. j t r ■. .i... x if i. / i, y... X if / ^ X..K.J ij ^ j - ... 

DATA 26,6,22,2,6,27,2,23,27,5,23,1,5,28,1 
DATA 28,4,-1,-l,-1,-1 


1 .L , 
10 
24 , £ 

v ■*■■■ * 


, 14,10 

6,8 


Timex 1000 and 1500 

1 REM *** GRAPHIC FANTASY TIMEX *** 


10 

CLS 


20 

RAND 


29 

REM 

*** INITIALIZE VARIABLES *** 

30 

LET 

S=INT (RND*5)+1 

40 

LET 

A=0 

50 

LET 

B=31 

60 

LET 

C=0 

70 

LET 

D=21 

80 

LET 

CH=I NT (RND*9)+2 

99 

REM 

*** MAIN LOOP *** 

100 

FOR 

X=A TO B STEP S 

1 10 

PRINT AT C,X;CHR$ (CH) 

120 

NEXT 

X 

130 

FOR 

X=C TO D STEP S 

140 

PRINT AT X,B;CHR* (CH) 

150 

NEXT 

X 

160 

FOR 

X=B TO A STEP -S 

170 

PRINT AT D,X;CHR$ (CH) 

180 

NEXT 

X 

190 

FOR 

X=D TO C STEP -S 

200 

PRINT AT X,A;CHR$ (CH) 

210 

NEXT 

X 

219 

REM 

*** REDEFINE VARIABLES ** 

220 

LET 

A-A+l 

230 

LET 

B-B-1 

240 

LET 

C=C+1 

250 

LET 

D=D-1 

260 

IF C 

>21 THEN GOTO 20 

270 

GOTO 

100 


TRS-80 Color Computer 

1 REM *** GRAPHIC FANTASY TRS-80 COLOR *** 
10 S=1 
£0 Z= 1 
30 CLS(0) 

40 E=£31 

43 REM *** RANDOMLY PICK COLOR *** 

50 KA=RND(8) 

60 KB=RND(£>+£ 

70 KC~RND(8) 

80 KD=RND(£)+6 
30 CH=15 

33 REM *** MAIN LOOP *** 
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100 READ B 

110 IF B=-l THEN 320 

120 FOR CQ=E TO B STEP S 

130 K0=KA 

140 GOSUB 500 

150 NEXT CO 

160 READ C 

170 FOR CO=B TO C STEP S*32 

180 KQ=KB 

190 GOSUB 500 

200 NEXT CO 

£10 READ D 

£20 FOR CO=C TO D STEP-S 

£30 KO=KC 

£40 GOSUB 500 

£50 NEXT CO 

£60 READ E 

£70 FOR CO=D TO E STEP-S*3£ 

£80 KO=KD 

£90 GOSUB 500 

300 NEXT CO 

310 GOTO 100 

320 FOR T=1 TO 1500 

330 NEXT T 

340 S=RND(5) 

350 RESTORE 
360 Z = Z + 1 
370 GOTO 40 

499 REM *** RANDOMLY PICK CHARACTER *** 

500 IF Z/3=INT(Z/3) THEN CH=7 

510 IF Z/£=INT(Z/£) THEN CH=10 

520 IF Z/5=INT(Z/5) THEN CH=9 

530 IF Z/7=INT(Z/7) THEN CH=4 

539 REM *** DRAW CHARACTERS *** 

540 SC=1£8+16*(KO-1)+CH 
550 PRINT0CO,CHR$(SC); 

560 RETURN 

1000 DATA £48,£80,£6£, 198,£17,313,£93, 165, 186 
1010 DATA 346, 3£4, 132, 155, 379, 355, 99, 1£4, 41£ 

1020 DATA 386,66,93,445,4i7,33,6£,478 
1030 DATA 448,32,-1,-1,-1 

TRS-80 Model III and Model 4 

1 REM *** GRAPHIC MODELS 3 AND 4 CASS. OR MODEL 3 DISK BASIC *** 

9 REM *** INITIALIZE VARIABLES *** 

10 S=2 

20 z=l:PRINT CHR$(21) 

30 CLS 
40 E=0 
50 CH=158 

59 REM *** MAIN LOOP *** 

60 READ B 

70 FOR CO=E TO B STEP S 
80 GOSUB 500 
90 NEXT CO 
100 READ C 

110 IF C=-l THEN 240 

120 FOR CQ=B TO C STEP S*64 

130 GOSUB 500 
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140 NEXT CD 
150 READ D 

160 FDR C0=C TO D STEP-S 
170 BOSUB 500 
180 NEXT CO 
190 READ E 

200 FOR CQ=D TO E STEP-S*64 

210 BOSUB 500 

220 NEXT CO 

230 SOTO 60 

240 FOR T=1 TO 1500 

250 NEXT T 

260 S=RND<7) 

270 RESTORE 
280 Z=*Z+1 
290 GOTO 40 

499 REM *** RANDOMLY CHOOSE CHARACTER *** 

500 IF Z/2=INT(Z/2) THEN CH=183 
510 IF Z/3=INT(Z/3) THEN CH=189 
520 IF Z/4=INT(Z/4) THEN CH=129 
530 IF Z/5=INT(Z/5) THEN CH*157 
540 IF Z/6=INT(Z/6) THEN CH=170 

549 REM *** DRAW *** 

550 PRINTlICQ, CHR$ (CH) ; 

560 RETURN 

1000 DATA 63,959,896,64,126,894,833, 129, 189 
1O10 DATA 829,770,194,252,764,707,259,315,699 
1020 DATA 644,324,378,634,581,389,441,569 
1070 DATA 518,454,504,-1,-1,-1 

VIC-20 

1 REM *** GRAPHIC FANTASY VIC-80 *** 

10 Z = 1 
£0 S~£ 

30 PRINT CHR<*(147) 

40 POKE 36879,8 
60 DUM=INT(RND(-TI) ) 

69 REM *** SET COLORS *** 

70 KA=INT(RND(1)*£)+1 
80 KB=INT(RND(1)*£)+£ 

90 KC= I NT ( RND (1) •*£) +4 
100 KD=INT(RND(1)*£)+6 

109 REM *** INITIALIZE SCREEN AND CHARACTER VARIABLES *** 

110 CB=38400 
1£0 CH=160 
130 SB=7680 
140 READ RO,A,B 

150 IF R0=-1 THEN 370 

160 FOR C0=A TO B STEP S 

170 KO=KA 

180 GOSUB 500 

190 NEXT CO 

£00 READ CO,A,B 

£10 FOR RO=A TO B STEP S 

££0 KO=KB 

£30 GOSUB 500 

£40 NEXT RO 

£50 IF C0=-1 THEN 370 

£60 READ RO,A,B 
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£70 FOR C0=A TO B STEP -S 

£80 KG=KC 

£90 GOSUB 500 

300 NEXT CO 

310 READ CO,A,B 

3£0 FOR RO=A TO B STEP -S 

330 KO=KD 

340 GOSUB 500 

350 NEXT RO 

360 GOTO 140 

370 FOR T=1 TO 1500 

380 NEXT T 

390 S=INT <RND <1)*5)+1 
400 RESTORE 
410 Z=Z+1 
4£0 GOTO 40 

499 REM *** RANDOMLY PICK CHARACTER *** 

500 IF Z/3=INT(Z/3) THEN CH=81 
510 IF Z/5=INT(Z/5) THEN CH=S6 
5£0 IF Z/7=INT(Z/7) THEN CH=90 
5£9 REM *** DRAW CHARACTERS *** 

530 POKE CB+CO+££*RO,KO 

540 POKE SB+CQ+££*RO,CH 
550 RETURN 

1000 DATA 11,11, 1£,1£,11,1£, 1£, 1£, 10,10,1£,10, 10,10,13 

1010 DATA 13,10,13,13,13,9,9,13,9,9,9,14,14,9,14 

10£0 DATA 14,14,8,8,14,8,8,8,15,15.8,15,15,15,7 

1030 DATA 7, 15, 7, 7, 7, 16, 16, 7, 16, 16, 16, 6, 6, 16, 6 

1040 DATA 6,6.17,17,6,17,17,17,5,5,17,5,5,5,18 

1050 DATA 18,5,18,18,18,4,4,18,4,4,4,19,19,4,19 

1060 DATA 19, 19, 3, 3, 19, 3, 3, 3, £0, £0, 3, £0, £0, £0, £ 

1070 DATA £, £0, £,£,£, £1, £1, £, £1, £1, £1, 1, 1, £1, 1 

1080 DATA 1, 1, £1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-i,-1 
1090 DATA 3, 10, £9, £9, 3, ££,££, £9, 9, 9, ££, £ 

1100 DATA £, 9, 30, 30, £, £3, £3, 30, 8, 8, £3, 1 

1110 DATA 1,8, 31,31, 1, £4, £4, 31,7, 7, £4,0 

11 £0 DATA 0, 7, 31,-1,-1,-1,-1,-1,-1 
1130 DATA --1,-1,-1,-1,-1,-1,-1 

READY. 
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BONUS PROGRAM #6 

WATER BALLOONS 


In the summer's o 
b a 11 o o n f i g h t s t 


f my early youth, we 


used to have water 


keep coal 


o be cool now 


T 


my 


computer to 


ay a little game called WATER BALLOONS. The 


ob iect of WATER BALLOONS is to stand on the balcony of a 
t a 11 b u i 1 d i n g , b 1 :i. ndfolded < i f t h a t s o u nds a b i. t sc a r y , 
r a a d o n ) , a n d d r o p w a t. e r b a 11 o o n s i n t o a h a a p o n t h e 
ground. Your friend, who's surely nuts, is down below, 


shou 

t 

.1 

ng direct 

ions to y 

ou. "TOO 

FAR NORTH!" he says, as 

you 

h 

i 

t. t h b p 0 1 

iceman on 

the head. 



1 

0 

set the 

d i r ec: t i on 

s a water 

balloon will travel, you 

sel e 

c: 

t 

a number 

between 

one and 1C 

* for North and South, 

and 

d 

0 

the same 

for West 

and East. 

If you pick a 10 for 

Nort. 

h 

/ 

South and 

your fri 

end says, 

"TOO FAR SOUTH!", then 


you should pick a lower number for North/South on the next 
t :i. me around . 


After selecting the number you want, be sure to press 
the RETURN, or ENTER key, to plug the number into the 
computer. When you finally drop a balloon into the hoop, 
the computer will tell you haw many tries it took. 


ADAM 

1 REM *** WATER BALLOONS ADAM *** 

10 b = 10 
20 HOME 

30 PRINT TAB(S); "WATER BALLOONS!" 

40 PRINT 

50 PRINT TAB(4); "Press any key to begin." 

60 GET n$ 

70 HOME 

80 PRINT "You are on the 7th floor" 

85 PRINT "balcony of a building," 

90 PRINT "blindfolded. You are trying" 

100 PRINT "to drop water balloons into" 

105 PRINT "the center of a hoop on the" 

110 PRINT "ground below. To do so," 

115 PRINT "you must set your north/south" 

120 PRINT "and west/east coordinates" 

125 PRINT "according to your friend's" 

130 PRINT "help on the ground." 

149 REM *** pick coordinates *** 

150 la = INT(RND(1 )*10) + 1 
160 lo = INT(RND(1 )*10) + 1 
170 PRINT 

180 PRINT 

190 PRINT "1=extrerne south, 10 = extrerne north." 
200 PRINT "1=extreme west, 10=extreme east." 

210 PRINT 

220 PRINT "You now have "; b; " water balloons." 
230 PRINT "What's your guess" 

235 PRINT "(between 1 and 10)" 

240 PRINT "for the north/south coordinates" 
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245 INPUT ns 

250 IP ns < 1 OR ns > 10 THEN 230 

260 PRINT "What's your guess for west/east" 

265 INPUT ew 

270 IP ew < 1 OR ew > 10 THEN PRINT "It must be between 1 and 10!": 
GOTO 260 

280 IP ns = la AND ew = lo THEN 500 
290 PRINT 

299 REM *** scroll screen *** 

300 FOR x = 1 TO 24 
310 PRINT 

320 NEXT x 

330 PRINT "Your friend below says:" 

340 PRINT 

349 REM *** compare coordinates *** 

350 IP ns > la THEN PRINT "Too far north!" 

360 IP ns < la THEN PRINT "Too far south!" 

370 IP ns = la THEN PRINT "North, south O.K.!" 

380 IP ew > lo THEN PRINT "Too far east!" 

390 IP ew < lo THEN PRINT "Too far west!" 

400 IP ew = lo THEN PRINT "East, west O.K.!" 

410 b = b-1 

420 IP b < 1 THEN 800 

429 REM *** randomly pick two other ways to lose *** 

430 x = INT(RND(1)*30)+1 
440 IP x = 7 THEN 600 
450 IP x = 13 THEN 700 
460 PRINT 

470 GOTO 190 

499 REM *** WIN! *** 

500 HOME 

510 PRINT "You hit in 10-b; " tries!" 

520 PRINT 

530 PRINT "Press any key to play again." 

540 GET n$ 

550 GOTO 150 

599 REM *** hit Mom or Policeman *** 

600 PRINT 

610 PRINT "You plastered your Mom as she" 

620 PRINT "walked out to see what was" 

630 PRINT "going on." 

640 PRINT "YOU LOSE!" 

650 END 
700 HOME 

710 PRINT "You hit the policeman on the" 

720 PRINT "head. He confiscates your hoop" 

730 PRINT "and you.lose the game!" 

740 END 

799 REM *** LOSE *** 

800 PRINT 

810 PRINT "You're out of water balloons!" 

820 PRINT "YOU LOSE. The coordinates were:" 

830 PRINT "north/south="; la 
840 PRINT "east/west=:"; lo 
850 END 
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Apple II and Apple lie 

1 REM *** WATER BALLOONS APPLE **■* 
i 0 B ~ 10 
20 HOME 

30 PRINT TAB < 12) "WATER BALLOONS!" 

40 PRINT 

50 PRINT TAB ( 8)"PRESS ANY KEY TO BEGIN." 

60 GET NT- 
70 HOME 

SO PRINT "YOU ARE ON THE 7TH FLOOR BALCONY OF A" 

90 PRINT "BUILDING, BLINDFOLDED. YOU ARE TRYING" 
100 PRINT "TO DROP WATER BALLOONS INTO THE CENTER" 
110 PRINT "OF A HOOP ON THE GROUND BELOW,," 

120 PRINT "TO DO SO, YOU MUST SET YOUR NORTH/SOUTH" 
130 PRINT "AND WEST/EAST COORDINATES ACCORDING" 

140 PRINT "TO YOUR FRIEND'S HELP ON THE GROUND" 

149 REM *** PICK COORDINATES *** 

150 LA — 1 NT ( RND (1) * 10) • 1 
160 LO I NT ( RND Cl.) * 10) + 1 
170 PRINT 

180 PRINT 

.190 PRINT " i-EXTREME SOUTH, 10=EXTREME NORTH,.” 

200 PRINT " 1 ^EXTREME WEST, 10--EXTREME EAST" 

210 PRINT 


'y ' > Ci 

PR I NT 

"YOU NOW HAVE 

"B" WATER BALLOONS,. 1 

1 

230 

PRINT 

"WHAT'S YOUR G! 

JESS (BETWEEN 1 AND 

1 0) " 

240 

INPUT 

"FOR THE NORTH 

/SOUTH COORDINATES £ 

" ; NS 

250 

IF NS 

< 1 OR NS > 10 

THEN 230 


260 

INPUT 

"WHAT'S YOUR G! 

JESS FOR WEST/EAST £ 

" ; EW 

p “/ 

IF EW 

< 1 OR EW > .10 

THEM PRINT "IT MU! 

ST BE 

pnTn 





280 

t r” |\ i cz- 

•LI l, 

* LA AND EW = 

LO THEN 500 


290 

PRINT 




700 

.A. / / 

REM * 

** SCROLL SCREEN *** 


300 

FOR X 

rn r 7 -a 
a 1 *—f .c. ~r 



3 i 0 

C*p T MT 

! 1 .1. »'l 1 





BETWEEN 1 AN 10!" 


ME XT X 


ypr (> 

PR IN 

340 

. PRIM 

A O 

"T / 

REM 

LO 

to 

IF L 

360 

IF L 

370 

IF 1.... 

3 SO 

1 F E 

390 

’[ F- f; 

400 

IF E 

4 10 

B = B 

420 

IF B 

nn 
*v .ti."? 

|.d rr jv| 

430 

y — 

440 

IF X 

450 

IF X 

460 

!■- .1 Im 

470 

GOTO 

499 

(.Tivi 

500 

HOME 

r-T i F;, 

pp 11\| 


NS THEN 


P» K!T " MHPT 




W > LO THEN PRINT "TOG FAR EAST: 
W < LO THEN PRINT "TOD FAR WEST! 
W LO THEN PRINT "EAST, WEST 0. 


U ! I ILK Wh 


i. RND !. 1 ) 
THEM 600 


i re; i 
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520 

PR I NT 



530 

PRINT "PRESS AMY KEY TO PLAY AGAIN- " 



540 

GET NT 



550 

RUN 



599 

REM *** HIT MOM OR POLICEMAN *** 



600 

PRINT 



6 10 

PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 



620 

PRINT "OUT TO SEE WHAT WAS GOING ON!" 



630 

PRINT "YOU LOSE!" 



640 

END 



700 

HOME 



710 

PRINT "YOU HIT THE POLICEMAN ON THE HEAD." 



720 

PRINT "HE CONFISCATES YOUR HOOP AND YOU" 



730 

PRINT "LOSE THE GAME!" 



740 

END 



799 

REM *** LOSE *** 



800 

PRINT 



810 

PRINT "YOU'RE OUT OF' WATER BALLOONS!" 



820 

PRINT "YOU LOSE., THE COORDINATES WERE:" 



830 

PR I NT 11 NORTH/SOUTH™ " LA 



840 

PR I NT "EAST / WEST= " LD 



850 

END 



Atari 




1 R E fi * * >v W i T I E. R B i i L L U 0I IS A 1 A RI * * * 



10 DIM R 4 : ( 1) : B ~ 10 



20 PRIM 1 CHR$(125) 



30 r 

OS IllON 12,0 



40 F 

R J. i! r •' WA 1 ER BALLOONS 1 " 



50 F 

OSIT ION S.3 s FRIN f “PRESS (RETRUN) TO START"; 



60 E 

GSUB 1000 



70 F 

PINT CHR *• < 125) 



80 F 

R1 r 1 r "YOU ARE DM rHE 77H FLOOR BALCONY OF A" 



90 F 

R INI "BUILDING, BLINDFOLDED- YOU ARE TRYING" 



100 

PRINT' ” 1 0 DROP WA I'ER BALLOONS l'N ID A HOOP," 



:i 1 o 

PRIM! "ON THE GROUND BELOW., TO DO SO," 



1. 20 

PRINT "YOU MUST SET YOUR NORTH/SOUTH" 



L 30 

PR I NT " AND EAST / NEST' COORD I NA T ES ACCORD I NG “ 



1 40 

PR I Ml "TO YOUR FRIEND'S HELP ON THE GROUND." 



1.49 

REN PICK COORDINATES •**•* 



1 50 

1... (■>-■ .1. M 1" < RND < 1 > * 10 ) i 1 



1 6 0 

1. 0 “ I NT < RN 0 1 ) * 10 ) + 1 



1 /O 

PRIM 1 



J 80 

PR I N'T 



190 

PR I N T "1• PX1 PR HE SOU 1H - 1 0~EX 1 RENE NOR 1H" 



20 0 

PRINT " P E.- IRENE WEST ~ 10-EXTREME EAST" 



2 1 0 

PR IN T 



2 £ ij 

PRIM! " , OU NAVE B; " WATER BALLOONS. “ 



230 

PRIM! "WHAT S YOUR GUESS (BETWEEN 1 AND ICO" 



240 

PRINT "FOR THE NORTH/SOUTH COORDINATES"s INPUT MS 



v c 6 0 

IF TIB 1 OR MS >10 THEN 230 



yj 

PRINT "WHAT'S YOUR GUESS FOR WEST ''EAST": INPUT GW 



yS "7 () 

IF EW>. 1 OR EW > 10 THEN PRINT "IT MUST BE WITHIN 1 AMD :P 

■ GOT C 

■ 2 6 * J 

230 

IF M3=LA AND EW : - : LO THEN 500 



290 

PR 1 NT 



299 

REM >:•>:•* SCROLL SCREEN 



300 

FOR X-l TO 24 



3 1 0 

PR 1 111 



3 y q 

NEXT X 
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330 

pr i n r 

"YOUR FRIEND 

BELOW 

SAYS:" 



340 

F ; 'R I NT 







349 

REM * 

** CUMPAF 

E C00RDI NATES *** 



350 

IF MS 

7-LA THEN 

PR I NT 

" TOO 

FAR NORTH!" 



360 

IF NS 

7 LA 1 HEN 

PR IN T 

" TOO 

FAR SOUTH!" 



370 

IF NS 

--LA THEN 

PR IM1 

"NORTH/SOUTH 0.K 

H 

1 n 

380 

IF EW 

>L0 11 Kill! 

PRINT 

" TOO 

FAR EAST ! " 



390 

IF EW 

■: L0 THEN 

PR IN T 

" T OO 

FAR WEST ! " 



400 

IF EW 

“LO THEN 

PR IN T 

"EAS 1 

/WEST O.K. ! 

II 


41.0 

B-B~ 1 







/; 20 

IF 

1 1 HE.N S'- 

O 





429 

REM * 

** RANDOMLY PICK I'WC 

OTHER WAYS 


TO LOSE 

430 

X 1N 1 

(RND ( .1 ) * ':•! 

O } r '1 





440 

IF X 

/ THEM 6C 

0 





450 

IF X== 

13 THEM 7 

00 





4 c»U 

pp j; f>j ( 







4 7 0 

GOTO 

.1. 90 






499 

REM *• 

*•* W .(N ! >: 

* ¥: 





Fit x ) 

PR I NT 

CHE* ( 125 

} 





5 1 0 

PR 1N r 

"YOU III 1 

I T l'N " ; 9 - 

B; " TURN(S) 

1 

II 

520 

pr :i: 1 1 t 







5 3 O 

PR IN ! 

11 o j;;: > ,* 

RE TUP 

N) TO 

PLAY AGAIN. 

II 


540 

GOSUB 

1 < !( )( i 






3 5 0 

RUM 







599 

REM * 

HIT MOM OR 

POLICEMAN *•*■* 



ft 

PR IN i 







di i O 

PR I !'■•! T 

"YOU PER 

S T ERE 

D 1 0OF 

MOM AS SHE 


WALKED " 

620 

PRINT 

"OUT TO 

SEE W 

HAT WA 

S GOING ON! 

II 


■:::>30 

PR .1. N : 

" YOU LOSE !" 





840 

END 







7 Ou 

PR IN T 

CURT ( .1.25 






7 .1 0 

PR IN T 

"YOU Hl'l 

THE 

POL ICE 

MAN ON THE 

HEAD. " 

7 20 

PR I NT 

"HE. COl'iF 

iSLATES YOUR HOOP" 



730 

PR IM 1 

"FTMD VOL 

< nqc 

t... o j... 

THE 6 

AME ! " 



'740 

END 







70,:, 

REM * 

x-x- LOSE X 

•fc- 





BOO 

PR I NT 







8 1 0 

PR 1 N ! 

"YOU RE 

OU T C 

F WAVE 

R BALLOONS' 

II 


B 2 0 

pR | J,j| 

"YOU LOG 

L T 

HE COC 

RDI MATES WE 

p. 

r.:r ■ *'• 

L. • 

Q3U 

PR .[ N 1 

"NORTH/E 

UUTH-' 

” 5 LA 




840 

PR IN'I 

"EAS1 WE 

3h= " 

; I....0 





850 END 
100',.' IMF'UI R % 
1020 RE. I URN 




Commodore 64 

I REM *** WATER BALLOONS 64 **■* 

10 B=10 

20 PRINT CHR$CL47> 

30 PRINT TAB(12)“WATER BALLOONS!" 

40 PRINT 

50 PRINT TABO)"PRESS (SHIFT) TO BEGIN." 

80 GOSUB 1000 

63 REM *** INTRODUCTION *** 

70 PRINT CHR$(147) 

80 PRINT "YOU ARE ON THE 7TH FLOOR BALCONY OF A" 
30 PRINT "BUILDING, BLINDFOLDED. YOU ARE TRYING" 
100 PRINT "TO DROP WATER BALLOONS INTO A HOOP" 

110 PRINT "ON THE GROUND BELOW." 
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120 

130 

140 

143 

150 

160 

170 

160 

190 

200 

210 

219 

220 
230 
240 
250 
260 
270 
280 
290 

299 

300 
310 
320 
330 
340 

349 

350 
360 
370 
380 
390 
400 
410 
420 
423 
430 
440 
450 
460 
470 

499 

500 
510 
520 
530 
540 
550 
593 
600 
610 
620 
630 
640 
700 
710 
720 
730 
740 


PRINT "TO DO SO, YOU MUST SET NORTH/SOUTH" 

PRINT "AND WEST/EAST COORDINATES ACCORDING" 

PRINT "TO YOUR FRIEND’S HELP ON THE GROUND." 

REM *** PICK COORDINATES *** 

LA=INT(RND(1)*10>+1 

LO=INT(RND(1)*10>+1 

PRINT 

PRINT 

PRINT "1=EXTREME SOUTH - 10=EXTREME NORTH" 

PRINT "1=EXTREME WEST - 10=EXTREME EAST" 

PRINT 

REM *** MAIN LOOP *** 

PRINT "YOU NOW HAVE"B"WATER BALLOONS." 

PRINT "WHAT’S YOUR GUESS (BETWEEN 1 AND 10)" 

INPUT "FOR THE NORTH/SOUTH COORDINATE";NS 
IF NS <1 OR NS> 10 THEN 230 

INPUT "WHAT’S YOUR GUESS FOR WEST/EAST";EW 

IF EW <1 OR EW>10 THEN PRINT "IT MUST BE WITHIN 1 AND 10!":GOTO 

IF NS=LA AND EW=LO THEN 500 

PRINT 

REM *** SCROLL SCREEN *** 

FOR X=1 TO 24 

PRINT 

NEXT X 

PRINT "YOUR FRIEND BELOW SAYS:" 

PRINT 

REM *** COMPARE COORDINATES *** 

IF NS> LA THEN PRINT "TOO FAR NORTH I" 

IF NS <LA THEN PRINT "TOO FAR SOUTH!” 

IF NS=LA THEN PRINT "NORTH, SOUTH 0. K. !" 

IF EW> LO THEN PRINT "TOO FAR EAST!" 

IF EW(LO THEN PRINT "TOO FAR WEST!" 

IF EW=LO THEN PRINT "EAST, WEST 0. K. ! " 

B=B-1 

IF B<1 THEN 800 

REM *** RANDOMLY PICK TWO OTHER WAYS TO LOSE *** 

X=INT(RND(1)*30)+1 

IF X=7 THEN 600 

IF X= 13 THEN 700 

PRINT 

GOTO 190 

REM *** WIN! *** 

PRINT CHR$(147) 

PRINT "YOU HIT IT IN"10-B"TRIES!" 

PRINT 

PRINT "PRESS (SHIFT) TO PLAY AGAIN." 

GOSUB 1000 
RUN 

REM *** HIT MOM OR POLICEMAN *** 

PRINT 

PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 

PRINT "OUT TO SEE WHAT WAS GOING ON!" 

PRINT "YOU LOSE!" 

END 

PRINT CHR$(147) 

PRINT "YOU HIT THE POLICEMAN ON THE HEAD." 

PRINT "HE CONFISCATES YOUR HOOP" 

PRINT "AND YOU LOSE THE GAME!" 

END 


260 
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799 

REM *** LOSE *** 


800 

PRINT 



810 

PRINT 

"YOU’RE OUT OF WATER BALLOONS!" 


820 

PRINT 

"YOU LOSE. THE COORDINATES WERE;" 


830 

PRINT 

"NORTH/SOUTH="LA 


840 

PRINT 

"EAST/WEST="LO 


850 

END 



1000 WAIT 

653, 1 


1010 WAIT 

653, 1, 1 


1020 RETURN 


IBM PC 



f. R 

F H is- * 

MAT EE BAI. LOGINS IBM . PC *** 


:i o 

B~ 1 0 



30 

PR I Ml 

"WATER BAU...00N3 ! " 


40 

PR I NT 



50 

PR IM 1 

"PRESS (ENTER) TO BEGILL " 


K.J '• L) 

GOSUB 

.1 1.00 


70 

CLS 



80 

pr i i! i 

"YOU ARE UN THE ? Til" 


90 

PR I NT 

"FLOOR BALCONY OF A" 


100 

PRIM 1 

" Bl 111. 1.) I NO , CL I NDF 01 . BED „ " 


1 10 

PR I i 1 f 

" i00 ARE IRVING TO" 


120 

PR [ m r 

" DROP UA TER BAI...LOONS " 


130 

PR 1 NT' 

"IN 10 I HE CENTER OF" 


! 40 

PR I ("••! T 

"A MOOR ON THE GROUND BELOW. " 


.1.50 

FT-: I M ! 

"I'D DO SO, YOU MUST SET" 


1 60 

PR [ 1 ! r 

" V OUR NOR 1 H/ SOU 1 H AND" 


.1. 70 

F'R I NT 

"WEST / EOS 1 COORD 1 NATES" 


1 80 

PR .1N 1 

"MI 1H YOUR FRIEND ' S" 


.!. 90 

PRINT' 

"HEI R CUT 1 HE GROUND, " 


1 99 

REN * 

#* randomly pick' coordinates **+ 


200 

Lii- 1 NT ■ PITD 1 > * 10) 4 i 


2 10 

U> IN 

1 >. R| ! 0 '. .1. > >: J. 0 i i 1 


2 2 0 

PR IN r 



2 30 

PRIM l 

"PRESS (ELM ER) TO PL A v " 


240 

GOBUB 

1 100 



r \ 3 



260 

F'R IN ; 



2 7o 

PRIM i 

" 1 - ~EX V RETIE SOU 1 IT " 


230 

PRINT 

" lOI RENE NOP 1 I F " 


2 , '?0 

F'R 1 !•: I 

" 1 ~-E X 1 EE'ME: WES T 


300 

PR IN f 

" JO~E-\ 1 FEME EAST " 


31 O' 

F'R 1. 1) 1 



2 .0 

FRUIT 

"VON MOW HiiOE"B"NA 1 ER BALLOONS. " 


540 

350 

rr in r 

t.. ?:;* r u r 

"WHiVT IS -t OUR. GUESS" 


F'R LIT T 

'' F 0 R 1 HE 110 R '! H - 3 0 U T IT ' ’ 


360 

.1. NPU 1 

"COPRDINAIE" ; MS 


j. / lj 

33 

IF Mb 
PRUT 1 

.1 OR ITSliO 1 HEN 540 
"WHO 1 13 YOUR GUESS" 

J 

39 r» 

J NRU | 

"FOR WEST AMD EAST" jEW 


4 0) o 

IF b.l'l 

' .1. OR EWxl.O THEN 300 


4 1 0 

IF NS 

-La ATI), 1 EW-1...0 THEN - 700 


47*0 

F'R IN 1 



430 

/i • i , , 

F OR 

~ i. 1 0 24 


4 50 

ME X "I 

> 
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460 PRINT "YOUR FRIEND BELOW SAYS" 
470 PRINT 

479 REM •#** COMPARE COORDINATES *** 


4 SO 

IF NS 

ALA THEN PRINT 

490 

IF MS 

a... A THEN PRINT' 

500 

IF NS 

-LA THEN PRINT 

5 i 0 

IF ET-J 

ALU I HEN PRINT 

520 

IF EW 

a.O THEN PRINT 

530 

IF EW 

“1.(3 THEN PRINT 

540 

B~B~-1 


550 

IF B< 

1 THEN 1000 

559 

REM * 

* a R A N D 0 M L Y T W C 

560 

X~ I NT 

(RMD ( 1 ) a -30 ) 

570 

f F A is 

7 THEN 800 

580 

IF X~ 

13 THEN 900 

590 

PR I N T 


600 

GOTO 

27 0 

699 

REM ■*** WIN *■*■* 

700 

CLS 


7 10 

PR IN T 

"YOU HIT IT IT- 

720 

PR I NT 


730 

PR I N 1 

"PRESS (ENTER) 

740 

GO SUB 

.1. 100 

7 50 

RUN 


799 

REN * 

# HIT NOLI OF: C 

300 

PRINT 


81 0 

PR l N T 

"TOI.J HIT YOUR 

820 

PR I IT T 

"YOU LOSE LiIlf 

830 

END 


V O O 

CLS 


71 0 

PR .! | .| 1 

"'YOU HIT A POT. 

920 

PR I N T 

"HE CONI'- 1 SCAT I; 

930 

PR 1 M 1 

" YOU [..USE ! " 

9 40 

END 


999 

RETT * 

& ■*: |.. ! J S E *•' & & 

\ ■ '( iI’ 

PRINT 


" T OO F AR NORTH 1 " 
"TOO FAR SOUTH'" 
"NORTH/SOU IH 0„K. 1 
"TOO FAR EAST'" 
"TOO FAR WEST!" 
"FAS TV WEST 0.. L, 1 " 


OTHER WAYS TO LOSE *** 


10. B"TRIES" 

TO FT...AY AGAIN. " 


OF’ 

NON ON THE SIDEWALK'" 
YOU WOULDN 1 BE!. IE7E, " 


ICEMAN ON THE HEAD. 
S yOUR HOOF." 


10.10 PR INI " i ul) RE ONI OF WATER" 

1020 PRINT " BALL. OOTJS . YON 1...0SE!" 

1030 l :: ’RIN! " THE COORDINATES WERE; " 

1 040 PR I i l l " NOR f! ISOU l H“ " LA 
.1. 0 n 0 PR 1N ! ' 1 E (, S ! W E S T =-' 1 1... 0 

1 '!.>60 END 

I. !) 9 V F •' E I T V. * fi- i ■'! f ■; I | R o U ! t N E *■ *■ * 

T :l.00 INPUT Rt- 
1120 RETURN 

TI-99/4A 

1 RETT *•** WAT ER Bi ll. I. .00NS ! 4 A <6* 

i.o 8~ 10 
20 CALI. Cl... EAR 

SO PRINT "WATER WALLOONS! ’ 

40 PR TON I 

50 PRINT ’ PRESS .ETHER) TO BESTS'!" 

60 INPUT RT 
V- CALI. CL EAR 

00 PRINT "YOU APE ON THE 7TH" 

90 PRINT "FLOOR BALCONY OF A" 

100 PRINT "BOH. DING-, Bl.INDFOLDED . " 

110 PRINT "YUU ARE IRVING TO" 
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120 PRINT " DROP WA'l ER BALLOONS, " 

130 PRINT "INTO 1 HE CENTER OF" 

140 PRINT "A HOOP ON I HE GROUND." 

150 PRINT "TO DO SO YOU MUST SET" 

160 PR INI "Y OUR NORTH/SOU TH AND" 

170 PRINT "WEST'/EAST COORDINATES" 

180 PRINT "WITH YOUR FRIEND'S" 

190 PRINT "HELP ON THE GROUND." 

199 REM *** RANDOMLY PICK COORDINATES *** 

200 RANDOMIZE 

210 LA-INI(10*RMDJ+1 
220 LG== 1N T ( 10*RND) i-1 
230 PRINT "PRESS (ENTER) TO PLAY" 

240 INPUT R* 

250 CALL CLEAR 
260 PRINT" 

2/0 PRINT " l—EX T'REME SOUTH." 

280 PRINT " 10-EX "IRENE NORTH" 

290 PRINT "I-EXTREME WEST." 

300 PR IM l "10“EXTREME EAST” 

310 PR1N r 

319 REM s*s INPUT GUESS 

320 PRINT "YOU MOW HAVE" ;B 
330 PR I N't " WA T ER BALLOONS " 

340 PRINT "WHAT S YOUR GUESS" 

350 PRINT "(BETWEEN 1 AND 10)" 

360 PRINT "FOR THE NORTH/50UTH" 

3 70 P R .1N T '' C 0 O R DIN A T E " ; 

380 INPUT NS 

339 REM *** COMPARE COORDINATES *** 

390 IF MS'. 1 THEN 350 

400 IF MS>10 THEN 350 

410 PRINT "WHAT S YOUR GUESS" 

420 PRIN T "F OR EAS T/ WEST" ; 

430 INPUT EW 

440 IF' El 1 To 1 THEN 4 10 

450 IP EW.1.0 THEN 410 

460 IF NS-I..A THEN 4/0 ELSE 480 

470 IP E.W-LO THEM 7 30 ELSE 430 

4 79 REM SCROLL SCREEN •#** 

480 PR IN! 

4 90 FOR A“ I. TO 24 
500 PRINT 
510 NEXT X 

520 PRINT" "YOUR FRIEND SAYS" 

530 PRINT 

540 IF NS>L„A THEN 550 ELSE 560 
550 PRINT "TOO FAR NORTH!" 

560 IF MS<LA THEN 57 0 ELSE 580 
570 REIN I "TOO FAR SOUTH’" 

5SO IF NS—La I HEII! 59'' ELSE 600 
590 PR IN I "NOR I H. SO! j | H oi . 1 " 

600 IF EW .."-LG THEN 6.10 ELSE 6.20 
610 PRINT "100 FAR EAST!" 

620 IF ELKLO THEN 630 ELSE 640 
630 PRINT "TOO FAR WEST 1 " 

640 IF EW-"LO THEN 650 ELSE 660 
650 PRINT "EASI/WEB! 0U<„!" 

660 B"-B - 1. 
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670 IF B<1 THEN 390 

679 REM *** PICK TWO OTHER WAYS TO LOSE *** 

680 X~INT(30*RND)+1 
690 IF X=7 THEM 790 
700 IF X~13 THEN 340 
7 10 PRIN r 

720 GOTO 270 
730 CALL. CLEAR 

740 PRINT "GOT IT IN";9.B;"TURN(S)!" 

750 PRINT 

760 PRINT "PRESS (ENTER) TO PLAY." 

770 INPUT R* 

780 GOTO 10 

789 REM *** HIT MON OR COP **•* 

790 CALL. CLEAR 

800 PRINT' "YOU HIT VOUR MOM ON" 

810 PRINT "THE SIDEWALK!" 

820 PRINT "YOU LOSE!" 

830 END 

840 CALL. CL EAR 

850 PRINT "YOU HIT THE POLICEMAN!" 

860 PRINT "HE. CONFISCATES YOUR" 

870 PRINT "HOOP. YOU LOSE!" 

880 END 
890 PRINT 

899 REM *** OUT OF BALE.00NS-LOSE *#* 

900 PRINT "YOU'RE OUT OF WhIER" 

910 P RIN T " B A L1... 0 G N 3 „ Y 01J L. 0 S E 1 ’ 1 
920 PRINT "THE COORDINATES WERE:" 

930 PR 1N I "NOR f H •' SOU ITN" s Li . 

940 PR1N f ‘ ‘ E A S T / ( J E S 1 ~ ; L. 0 
950 END 


Timex 1000 w/16K RAM Pack and Timex 1500 


1 

10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 

169 

170 
180 
190 
200 
210 
220 


REM *** WATER BALLOONS TIMEX *** 

LET B=10 
CLS 

PRINT TAB (9);"WATER BALLOONS" 

PRINT 

PRINT TAB (5)5"PRESS (ENTER) TO BEGIN." 
INPUT R* 

CLS 

PRINT "YOU ARE ON THE 7TH FLOOR" 

PRINT "BALCONY OF A BUILDING," 

PRINT "BLINDFOLDED. YOU ARE TRYING" 
PRINT "TO DROP WATER BALLOONS INTO" 

PRINT "A HOOP ON THE GROUND BELOW." 

PRINT "TO DO SO YOU MUST SET YOUR" 

PRINT "NORTH/SOUTH AND WEST/EAST" 

PRINT "COORDINATES ACCORDING TO YOUR" 
PRINT "FRIENDS HELP ON THE GROUND." 

REM *** PICK COORDINATES *** 

LET A=INT <RND*10)+1 
LET 0=1NT (RND+10)+1 
PRINT 

PRINT "PRESS (ENTER) TO CONTINUE. " 

INPUT R$ 

CLS 

PRINT "1=EXTREME SOUTH/10=EXTREME NORTH" 
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240 PRINT "1=EXTREME WEST/10=EXTREME EAST" 

250 PRINT 

260 PRINT "YOU NOW HAVE ";B;" WATER BALLOONS." 

270 PRINT "WHAT IS YOUR GUESS, BTWN 1-10" 

280 PRINT "FOR THE NORTH/SOUTH COORDINATE?" 

290 INPUT N 

300 IF N<1 OR N>10 THEN GOTO 260 

310 PRINT "WHAT IS YOUR GUESS FOR WEST/EAST?" 

320 INPUT W 

330 IF W<1 OR W>10 THEN GOTO 310 
340 IF N=A AND W=0 THEN GOTO 530 

349 REM *** SCROLL SCREEN *** 

350 FOR X=1 TO 8 
360 SCROLL 

370 PRINT 
380 NEXT X 
390 CLS 

399 REM *** COMPARE COORDINATES *** 

400 IF N>A THEN PRINT "TOO FAR NORTH" 

410 IF N<A THEN PRINT "TOO FAR SOUTH" 

420 IF N=A THEN PRINT "NORTH, SOUTH O.K." 

430 IF W>0 THEN PRINT "TOO FAR EAST" 

440 IF W<0 THEN PRINT "TOO FAR WEST" 

450 IF W=0 THEN PRINT "EAST, WEST O.K." 

460 LET B=B-1 

470 IF B<1 THEN GOTO 800 

479 REM *** RANDOM PICK OF TWO OTHER WAYS TO LOSE *** 

480 LET X=INT <RND*30)+1 
490 IF X=7 THEN GOTO 600 
500 IF X=13 THEN GOTO 700 
510 PRINT 
520 GOTO 230 

529 REM *** WIN *** 

530 CLS 

540 PRINT "YOU HIT IT IN "JIO-B;" TRIES" 

550 PRINT 

560 PRINT "PRESS (ENTER) TO PLAY AGAIN." 

570 INPUT R* 

580 RUN 

599 REM *** HIT MOM OR POLICEMAN *** 

600 PRINT 

610 PRINT "YOU PLASTERED YOUR MOM AS SHE" 

620 PRINT "WALKED OUT TO SEE WHAT WAS" 

630 PRINT "GOING ON. YOU LOSE." 

640 GOTO 850 
700 CLS 

710 PRINT "YOU HIT THE POLICEMAN ON THE" 

720 PRINT "HEAD. HE CONFISCATES YOUR HOOP" 

730 PRINT "AND YOU LOSE THE GAME." 

740 GOTO 850 

799 REM *** LOSE *** 

800 PRINT 

810 PRINT "YOU ARE OUT OF WATER BALLOONS." 

820 PRINT "YOU LOSE. THE COORDINATES WERE:" 

830 PRINT "NORTH/SOUTH=";A 
840 PRINT "EAST/WEST=";0 
850 REM *** END *** 
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IRS-80 Color Computer 

1 REM *** WATER BALLOONS TRS-80 COLOR *** 
10 B=10 
£0 CLS 

30 PRINT "WATER BALLOONS!" 

40 PRINT 

50 PRINT "PRESS (ENTER) TO BEGIN" 

60 GOSUB 1100 
70 CLS 

80 PRINT "YOU ARE ON THE 7TH" 

S0 PRINT "FLOOR BALCONY OF A" 

100 PRINT "BUILDING, BLINDFOLDED" 

110 PRINT "YOU ARE TRYING TO" 

120 PRINT "DROP WATER BALLOONS," 

130 PRINT "INTO THE CENTER OF" 

140 PRINT "A HOOP ON THE GROUND BELOW." 

150 PRINT "TO DO SO, YOU MUST SET" 

160 PRINT "YOUR NORTH/SOUTH AND" 

170 PRINT "WEST/EAST COORINATES" 

180 PRINT "WITH YOU FRIEND’S" 

190 PRINT "HELP ON THE GROUND." 
i99 REM *** RANDOMLY PICK COORDINATES *** 
£00 LA=RND(10) 

£10 LO=RND(10) 

£20 PRINT 

£30 PRINT "PRESS (ENTER) TO PLAY" 

£40 GOSUB 1100 
£50 CLS 
£60 PRINT 

£70 PRINT "1=EXTREME SOUTH-" 

£80 PRINT "10=EXTREME NORTH" 

£90 PRINT "1=EXTREME WEST-" 

300 PRINT "10=EXTREME EAST" 

310 PRINT 

319 REM *** MAIN LOOP *** 

320 PRINT "YOU NOW HAVE"B"WATER BALLOONS." 
330 PRINT "WHAT IS YOUR GUESS" 

340 PRINT "(BETWEEN 1 AND 10)" 

350 PRINT "FOR THE NORTH/SOUTH" 

360 INPUT "COORDINATE";NS 
370 IF NS <1 OR NS>10 THEN 340 
380 PRINT "WHAT’S YOUR GUESS" 

390 INPUT "FOR EAST/WEST";EW 
400 IF EW(1 OR EW>10 THEN 380 
410 IF NS=LA AND EW=LO THEN 700 

419 REM *** SCROLL SCREEN *** 

420 PRINT 

430 FOR X=1 TO £4 
440 PRINT 
450 NEXT X 

460 PRINT "YOUR FRIEND BELOW SAYS" 

470 PRINT 

479 REM *** COMPARE COORDINATES *** 

480 IF NS> LA THEN PRINT "TOO FAR NORTH!" 

490 IF NSCLA THEN PRINT "TOO FAR SOUTH!" 

500 IF NS=LA THEN PRINT "NORTH/SOUTH O.K. !" 
510 IF EW> LO THEN PRINT "TOO FAR EAST! 

5£0 IF EW <LO THEN PRINT "TOO FAR WEST!" 
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530 IF EW=L0 THEN PRINT "EAST/WEST □. K. !" 

540 B=B-1 

550 IF B<1 THEN 1000 

559 REM *** RANDOMLY TWO OTHER WAYS TO LOSE *** 

560 X=RND(30) 

570 IF X=7 THEN 300 
580 IF X=13 THEN 900 
590 PRINT 
600 GOTO £70 

699 REM *** WIN! *** 

700 CLS 

710 PRINT "YOU HIT IT IN"10-B"TRIES" 

7£0 PRINT 

730 PRINT "PRESS (ENTER) TO PLAY AGAIN" 

740 GOSUB 1100 
750 RUN 

799 REM *** HIT MOM OR COP *** 

800 PRINT 

810 PRINT "YOU HIT YOUR MOM ON" 

8£0 PRINT "THE SIDEWALK!" 

830 PRINT "YOU LOSE!" 

840 END 
900 CLS 

910 PRINT "YOU HIT A POLICEMAN ON THE HEAD." 

9£0 PRINT "HE CONFISCATES YOUR HOOP. " 

930 PRINT "YOU LOSE!" 

940 END 

999 REM *** LOSE *** 

1000 PRINT 

1010 PRINT "YOU’RE OUT OF WATER" 

10£0 PRINT "BALLOONS. YOU LOSE!" 

1030 PRINT " THE COORDINATES WERE:" 

1040 PRINT "NORTH/SOUTH="LA 
1050 PRINT "EAST/WEST="LO 
1060 END 

1099 REM *** WAIT ROUTINE *** 

1100 INPUT RS 
1i£0 RETURN 

TR5-80 Model III and Model 4 

1 REM *** WATER BALLOONS TRS-80 MODELS 3 AND 4 *** 
10 B=10 
20 CLS 

30 PRINT TAB(32) "WATER BALLOONS!" 

40 PRINT 

50 PRINT TAB(28) "PRESS (ENTER) TO BEGIN"; 

60 GOSUB 1000 
70 CLS 

80 PRINT "YOUR ARE ON THE 7TH FLOOR BALCONY OF A" 
90 PRINT "BUILDING, BLINDFOLDED. YOU ARE TRYING" 
100 PRINT "TO DROP WATER BALLOONS INTO A HOOP ON" 
110 PRINT "THE GROUND BELOW. TO DO SO, YOU MUST" 
120 PRINT "SET YOUR NORTH/SOUTH AND WEST/EAST" 

130 PRINT "COORDINATES ACCORDING TO YOUR FRIEND’S" 
140 PRINT "HELP ON THE GROUND." 

149 REM *** RANDOMLY PICK COORDINATES **~* 

150 LA=RND(10) 

160 LO=RND(10) 

170 PRINT 
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ISO PRINT 

190 PRINT " 1 =EXTR'EME SOUTH - 10=EXTREME NORTH" 
200 PRINT "1=EXTREME WEST - 10=EXTREME EAST" 

210 PRINT 

220 PRINT "YOU NOW HAVE"B"WATER BALLOONS." 

230 PRINT "WHAT'S YOUR SUESS (BETWEEN 1 AND 10)" 
240 INPUT "FOR THE NORTH/SOUTH COORDINATE"!NS 
250 IF NS<1 OR NS>10 THEN 230 

260 INPUT "WHAT’S YOUR GUESS FOR WEST/EASTEW 
270 IF EW<1 OR EW>10 THEN 230 
280 IF NS=LA AND EW=LO THEN 500 

289 REM *** SCREEN SCROLL *** 

290 FOR X=1 TO 24 
300 PRINT 

310 NEXT X 
320 CLS 

330 PRINT "YOUR FRIEND BELOW SAYS:" 

340 PRINT 

349 REM *** COMPARE COORDINATES *** 

350 IF NS>LA THEN PRINT "TOO FAR NORTH!" 

360 IF NSCLA THEN PRINT "TOO FAR SOUTH!" 

370 IF NS=LA THEN PRINT "NORTH/SOUTH O.K. !" 

380 IF EW>LO THEN PRINT "TOO FAR EAST!" 

390 IF EWCLO THEN PRINT "TOO FAR WEST!" 

400 IF EW=LO THEN PRINT "EAST/WEST O.K. !" 

410 B=B—1 

420 IF B<1 THEN 800 

429 REM *** RANDOMLY TWO OTHER WAYS TO LOSE *** 

430 X=RND(30) 

440 IF X=7 THEN 600 
450 IF X—13 THEN 700 
460 PRINT 
470 GOTO 190 

499 REM *** WIN 1 *** 

500 CLS 

510 PRINT "YOU HIT IT IN"10-B"TRIES!" 

520 PRINT 

530 PRINT "PRESS (ENTER) TO PLAY AGAIN" 

540 GOSUB 1000 
550 RUN 

599 REM *** HIT MOM OR COP *** 

600 PRINT 

610 PRINT "YOU PLASTERED YOUR MOM AS SHE WALKED" 
620 PRINT "OUT TO SEE WHAT WAS GOING ON!" 

630 PRINT "YOU LOSE!" 

640 END 
700 CLS 

710 PRINT" YOU HIT A POLICEMAN ON THE HEAD." 

720 PRINT "HE CONFISCATES YOUR HOOP" 

730 PRINT "AND YOU LOSE THE GAME 1 " 

740 END 

799 REM *** LOSE *** 

800 PRINT 

810 PRINT "YOU'RE OUT OF WATER BALLOONS!" 

820 PRINT "YOU LOSE. THE COORDINATES WERE’." 

830 PRINT "NORTH/SOUTH="LA 
840 PRINT "EAST/WEST="LO 
850 END 

999 REM *** WAIT ROUTINE *** 
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1000 INPUT R* 

1010 RETURN 

VIC-20 

1 REM *** WATER BALLOONS VIC-£0 *** 

10 B=10 

£0 PRINT CHR$(147) 

30 PRINT "WATER BALLOONS!" 

40 PRINT 

50 PRINT "PRESS (SHIFT) TO BEGIN" 

60 GOSUB 1100 
70 PRINT CHR$(147) 

80 PRINT "YOU ARE ON THE 7TH" 

90 PRINT "FLOOR BALCONY OF A" 

100 PRINT "BUILDING,BLINDFOLDED. " 

110 PRINT "YOU ARE TRYING TO" 

120 PRINT "DROP WATER BALLOONS" 

130 PRINT "INTO THE CENTER OF" 

140 PRINT "A HOOP ON THE GROUND." 

150 PRINT "TO DO SO, YOU MUST" 

160 PRINT "SET NORTH/SOUTH AND" 

170 PRINT "WEST/EAST COORDINATES" 

180 PRINT "WITH YOUR FRIEND’S" 

190 PRINT "HELP ON THE GROUND. " 

199 REM *** PICK COORDINATES *** 

£00 lA=INT(RND<1>*10)+1 
£10 LO=INT(RND(1)*10)+1 
££0 PRINT 

£30 PRINT "PRESS (SHIFT) TO PLAY" 

£40 GOSUB 1100 
£50 PRINT CHR$(147) 

£60 PRINT 

£70 PRINT "1=EXTREME SOUTH-" 

£80 PRINT "10=EXTREME NORTH" 

£90 PRINT "1=EXTREME WEST-" 

300 PRINT "10=EXTREME EAST" 

310 PRINT 

3£0 PRINT "YOU NOW HAVE"B"WATER BAi_LOQNS" 

330 PRINT "WHAT’S YOUR GUESS" 

340 PRINT "(BETWEEN 1 AND 10)" 

350 PRINT "FOR THE NCRTH/S0U7H" 

360 INPUT "COORDINATE":NS 
370 IF NS <1 OR NS> 10 THEN 340 
380 PRINT "WHAT’S YOUR GUESS" 

390 INPUT "FOR EAST/WEST";EW 
400 IF EW <1 OR £W>10 THEN 380 
410 IF NS-LA AND EW=LO THEN 700 
4£0 PRINT 

4£9 REM *** SCROLL SCREEN *** 

430 FOR X=i TO £4 
440 PRINT 
450 NEXT X 

460 PRINT "YOUR FRIEND BELOW SAYS" 

470 PRINT 

479 REM *** COMPARE COORDINATES *** 

480 IF NS> LA THEN PRINT "TOC FAR NORTH!" 

490 IF NS < LA THEN PRINT "TOO FAR SOUTH!" 

500 IF NS=LA THEN PRINT "NORTH, SOUTH 0.K.!" 

510 IF EW> LG THEN PRINT "TOO FAR EAST!" 
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5£0 IF EW<LO THEN PRINT "TOO FOR WEST!" 

530 IF EW=LO THEN PRINT "EAST, WEST 0. K. !" 

540 B=B-1 

550 IF B<1 THEN 1000 

559 REM *** RANDOMLY PICK £ OTHER WAYS TO LOSE *** 

560 X=INT(RND(1)*30)+1 
570 IF X=7 THEN 800 
580 IF X=13 THEN 900 
590 PRINT 

600 GOTO £70 

699 REM *** WIN! *** 

700 PRINT CHR$(147> 

710 PRINT "GOT IT IN"10-B"TRIE5!" 

720 PRINT 

730 PRINT "PRESS (SHIFT) TO PLAY. 

740 GOSUB 1100 
750 RUN 

799 REM *** HIT MOM OR POLICEMAN *** 

800 PRINT 

810 PRINT "YOU HIT YOUR MOM ON" 

S£0 PRINT "THE SIDEWALK!” 

830 PRINT "YOU LOSE!" 

840 END 

900 PRINT CHR$(147) 

910 PRINT "YOU HIT THE POLICEMAN!" 

9£0 PRINT "HE CONFISCATES YOUR" 

930 PRINT "HOOP. YOU LOSE!" 

940 END 

999 REM *** LOSE *** 

1000 PRINT 

1010 PRINT "YOU’RE OUT OF WATER" 

1020 PRINT "BALLOONS. YOU LOSE!" 

1030 PRINT "THE COORDINATES WERE:" 

1040 PRINT "NORTH/SOUTH="LA 
1050 PRINT "EAST/WEST="LO 
1060 END 

1099 REM *** WAIT ROUTINE *** 

1100 WAIT 653,1 

1110 WAIT 653, 1, 1 
1120 RETURN 
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BONUS PROGRAM #7 

THE MONSTER IN THE MARSH 


If you're the type of person who enjoys traipsing through 
slushy, foggy, rocky places, without really getting wet, 
then THE MONSTER IN THE MARSH is for you. To win this 


game you make your way to the end of the marsh,, You do 
this by tossing rocks left, right, or' straight ahead, to 
check if it's safe to move. After each time you toss a 
rock, you have the choice of moving, or staying where you 
are. Watch your step! If you move to an unsafe spot, 
you'll sink. But everytime you stay where you are, the 
MONSTER OF' THE MARSH gains a step on you. Sooner, or 
later - , it's sink or swim in this marsh ! 


ADAM 

1 

10 
20 
30 
40 
50 
60 
70 
80 
90 
99 
100 
11 0 
1 20 
125 
130 
135 
140 
145 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
300 
310 
315 
320 
330 
340 
350 


THE MONSTER OP THE MARSH ADAM **** 


"THE MONSTER IN THE MARSH" 
"Press any key to begin." 


REM *** 
s = 15 
m = 15 
r = 24 
HOME 

PRINT TAB(3); 

PRINT 

PRINT TAB(4) ; 

GET n$ 

x = INT(RND(l)*3)+1 
REM *** main loop 
HOME 

IP r < 1 THEN fl = 1 
PRINT "You are "; s; 
"marsh’s end" 
"you have "; r; 
"your pocket" 
"the monster is 
"behind you." 




PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

IP fl 

PRINT 

PRINT 

INPUT 

IP fl 

IP ch 

ON ch 

HOME 

PRINT 

PRINT 

PRINT 

G0SUB 

fl = 

HOME 


step(s) from the" 
1 rock(s) in" 

step(s)" 


m: 


"Your choices are:" 

”l) Take a step" 

”2) Stay where you are" 

= 0 THEN PRINT ”3) Toss 


a rock" 


"Type a number, then 
"What is your choice 
= 1 AND ch > 2 THEN 
< 1 OR ch > 3 THEN 
GOTO 700, 1000, 300 

"Type the number of 
"direction you want 


(RETURN) ." 

"; ch 
220 

PRINT "Between 1 and 3 


the" 

to throw" 


"the 

2000 


rock 


please!": GOTO 220 
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360 IF x <> w THEN PRINT "SPLASH!" 

370 IF x = w THEN PRINT "THUD!" 

380 r = r-1 

390 IF m < 1 THEN 4000 
400 PRINT 

410 PRINT "Press any key to continue." 

420 GET n$ 

430 GOTO 100 

699 REM *** take a step routine *** 

700 HOME 

710 PRINT "Press the number of the" 

720 PRINT "direction you want to step in" 

730 GOSUB 2000 
740 HOME 

750 IF w <> x THEN PRINT "SPLASH! YOU'RE SINKING!" 

760 z = INT(RND(1)*3)+1 

770 IF w <> x AND z = 1 THEN m = m-1 : PRINT "BUT, you pull yourself 
out!" 

780 IF w <> x AND z <> 1 THEN PRINT "YOU LOSE!": END 

790 IF w = x THEN s = s-1 : PRINT "You stepped safely!" 

800 IF m < 1 THEN 4000 

810 IF s < 1 THEN 4000 

820 PRINT 

830 PRINT "Press any key to continue." 

840 fl = 0 
850 GET n$ 

860 GOTO 90 

999 REM *** stay where you are *** 

1000 in = m-1 

1010 IF m < 1 THEN 4000 

1020 fl = 0 

1030 GOTO 100 

1999 REM *** choose direction *** 

2000 PRINT "then press (RETURN)." 

2010 PRINT 

2020 PRINT "1) left" 

2030 PRINT "2) right" 

2040 PRINT "3) straight ahead" 

2050 PRINT 

2060 INPUT "Which way: w 

2070 IF w < 1 AND w > 3 THEN PRINT "Between 1 and 3, please!": GOTO 2060 
2080 RETURN 

3999 REM *** LOSE *** 

4000 HOME 

4010 PRINT "The monster eats you and says," 

4020 PRINT "'Could use a bit more salt!'" 

4030 PRINT "You lose, for sure.": END 

4999 REM *** WIN *** 

5000 HOME 

5010 FOR t = 1 TO 200 

5020 PRINT " YOU MADE IT !!!" 

5030 NEXT t 
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Apple II and Apple lie 



1 REM *■#* 

THE MONSTER OF THE MARSH APPLE *** 



10 S 

= 15 




20 M 

= 15 




30 R 

= 24 




40 

HOME 




50 

PRINT 

TAB( 7) "THE MONSTER IN THE MARSH" 



60 

PR I NT 




70 

PRINT 

TAB( 8) "PRESS ANY KEY TO BEGIN." 



80 

GET m 




90 X 

= I NT 

( RND (1) *3) + 1 



99 

REM *** MAIN LOOP *** 



100 

HOME 




1 10 

IF R < 

1 THEN FL = 1 



1 20 

PR I NT 

"YOU ARE "S" STEP(S) FROM THE MARSH'S 

END" 


130 

PRINT 

"YOU HAVE "R" ROCK(S) IN YOUR POCKET" 



140 

PRINT 

"THE MONSTER IS "M" STEP(S) BEHIND YOU" 


150 

PRINT 




160 

PRINT 

"YOUR CHOICES ARE:" 



170 

PRINT 




180 

PRINT 

"1) TAKE A STEP" 



190 

PR I NT 

"2) STAY WHERE YOU ARE" 



200 

IF FL. 

= 0 THEN PRINT "3) TOSS A ROCK" 



210 

PRINT 




220 

PRINT 

"TYPE A NUMBER. THEN PRESS (RETURN)." 



230 

INPUT 

"WHAT IS YOUR CHOICE: ";CH 



240 

IF FL 

= 1 AND CH > 2 THEN 220 



250 

IF CH 

< 1 OR CH > 3 THEN PRINT "BETWEEN 1 

AND 3, 

PLEASE!": GOTO 

260 

ON CH 

GOTO 700,1000,300 



300 

HOME 




310 

PRINT 

"TYPE THE NUMBER OF THE DIRECTION" 



320 

PRINT 

"YOU WANT TO THROW THE ROCK." 



330 

GOSUB 

2000 



340 

FL. = 1 




350 

HOME 




360 

IF X < 

> W THEN PRINT "SPLASH!" 



370 

IF X = 

W THEN PRINT "THUD!" 



380 

R = R . 

1 



390 

IF M < 

1 THEN 4000 



400 

PR I NT 




41 0 

PR I NT 

"PRESS ANY KEY TO CONTINUE." 



420 

GET NT 



430 

GOTO 100 



699 

REM *** TAKE A STEP ROUTINE *** 



700 

HOME 




710 

PRINT 

"PRESS THE NUMBER OF THE DIRECTION" 



720 

PR I NT 

"YOU WANT TO STEP IN." 



730 

GOSUB 

2000 



740 

HOME 




750 

IF W < 

> X THEN PRINT "SPLASH! YOU'RE SINKING!" 


760 

Z = INT < RND <1> * 3) + 1 



770 

IF W < 

> X AND Z = 1 THEN M = M - 1: PRINT 

"BUT, 

YOU PULL 


YOURSELF OUT!" 



780 

IF W < 

> X AND Z < > 1 THEN PRINT "YOU LOSE!": 

END 

790 

IF W ~ 

X THEN S = S - 1: PRINT "YOU STEPPED 

SAFELY 

1 " 

800 

IF M < 

1 THEN 4000 



810 

IF S < 

1 THEN 5000 
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820 PRINT 

830 PRINT "PRESS ANY KEY TO CONTINUE." 

840 FL = 0 
850 GET N* 

860 GOTO 90 

999 REM *** STAY WHERE YOU ARE *** 

1000 M = M - 1 

1010 IF M < 1 THEN 4000 
1020 FL = 0 
1030 GOTO 100 

1999 REM *** CHOOSE DIRECTION *** 

2000 PRINT "THEN PRESS (RETURN)." 

2010 PRINT 

2020 PRINT "1) LEFT" 

2030 PRINT "2) RIGHT" 

2040 PRINT “3) STRAIGHT AHEAD" 

2050 PRINT 

2060 INPUT "WHICH WAY: ";W 

2070 IF W < 1 OR W > 3 THEN PRINT "BETWEEN 1 AND 3, PLEASE!": GOTO 

2060 

2080 RETURN 

3999 REM *** LOSE ***■ 

4000 HOME 

4010 PRINT "THE MONSTER EATS YOU AND SAYS," 

4020 PRINT "'COULD USE A BIT MORE SALT!'" 

4030 PRINT "YOU LOSE, FOR SURE.": END 

4999 REM *** WIN •*** 

5000 HOME 

5010 FOR T 1 TO 200 

5020 PRINT " YOU MADE IT !!!" 

5030 NEXT T 


Atari 


i R 

EM *■** 

THE 

MONSTE 

10 

DIM R$ 

;• 1 ) 


20 

8=15: M 

•••" 15R 

. .. A 

3 0 

PR I NT 

CHET < 

125) 

40 

POSITI 

ON 7 ,, 

o 

50 

PR I NT 

"Ti.ir: 

i ! 11.... 

MONSTE' 

60 

PQSITI 

I*~l j\j 


70 

PR T NT 

11 p r> c- 

S (RET 

80 

p Q C> 1 IVT.j 

3000 


90 

X = INT < 

1 i./ •. 

)*3)+1 

99 

REM ** 

* MAIN LOOP 

j.00 

PR I NT 

p 1J i: « :{r 

! 1 1 V ■ !• 

( i 25) 

:!. 10 

T p* j”'« 

•i *rup 
.i. si j!.... 

Pm i'“ !....1 

:!. 20 

i:.:» p t k i t 

!i vni i 

" RE " 5 

130 

PR T NT 

" YOU 

S'" 

t (I-*: v i-... 

i A 0 

PR I NT 

" THE 

MONSTi 

150 

PR I NT 



160 

P K i N ! 

" YOU 

R CHOI 

•j / 0 

PR I NT 



1 00 

p I \ T Kj T 

11 -i \ 

.1. i 

TAKE A 

190 

PR I NT 

\ 1 

STAY W 


IF FL 

r-:Q Tl| 

EM PR 11 

210 

PR I NT 



220 

PR T NT 

i i i:.r kj "r 

ER YOU! 

230 

INPUT 

Ci-I 



EP (G) FROM THE MARSH EDGE" 


11 


y T IT n T 


TOSS ft ROCK" 
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240 IF FL=1 AND CH>2 THEN GOTO 220 

250 IF CH<1 OF: CH>3 THEM PRINT "BETWEEN 1 AND 3, PLEASE!" s GOTO 220 

260 ON CH GOTO 700,1000,300 

29? REM *** THROW A ROCK ROUTINE *** 

300 PRINT CHET(125) 

310 PRINT "TYPE THE NUMBER OF THE DIRECTION" 

320 PRINT "YOU WANT TO TOSS THE ROCK," 

330 GOSUB 2000 
340 FL~-1 

350 PRINT CHR$(125X 

360 IF XOW THEN PRINT "SPLASH!" 

370 IF X=W THEN PRINT "THUD 1 " 

380 R--R-1 

390 IF M<1 THEN 4000 
400 PRINT 

410 PRINT "PRESS (RETURN) TO CONTINUE,." 

420 GOSUB 3000 
430 GOTO 100 

699 REM *** TAKE A STEP ROUTINE *** 

700 PRINT CHRP(125) 

710 PRINT "PRESS THE NUMBER OF THE DIRECTION" 

720 PRINT "YOU WANT TO STEP IN," 

730 GOSUB 2000 
740 PRINT CURT(125) 

750 IF WOX THEN PRINT "SPLASH! YOU'RE SINKING!" 


760 

Z -- 1 NT ( 

RND (1 

) *3 ) + 

7 70 

IF WO 

X AND 

7 . ^ 

A.. -*“ i 

780 

IF WO 

X AND 

ZC >1 

7 q r-j 

IF W--X 

THEN 

S-S-- 

SCO 

IF MCI 

THEN 

4(1)00 

810 

IF SCI 

THEN 

5000 


820 PRINT 

830 PRINT " PRESS (RETURN) TO CONTINUE." 

840 FL=0 

050 GOSUB 3000 

C3 /L. /"•» f ~ i"“i T* f 1 O f") 
uuv '.JLj i *_J t 'j 

999 REM *** STAY WHERE YOU ARE *** 

1000 M—M-1 

•j j J rr Ivl..’ ; -j-j_jp[- s j /[.(■)Of} 

1020 FL---0 
1030 GOTO 100 

1999 REM **•* CHOOSE DIRECTION *** 

2000 PRINT "THEN PRESS THE (RETURN) KEY.," 

2010 PRINT 

2020 PRINT "1> LEFT" 

2030 PRINT "2) RIGHT" 

2040 PRINT "3) STRAIGHT AHEAD" 

2050 PRINT 

2060 PRINT "WHICH WAY" 

2065 INPUT W 

2070 IF W<1 OR W>3 THEN PRINT "BETWEEN . 1 . AND 3 PLEASE ! " i GOTO 2060 
2080 RETURN 

2999 REM **••* INPUT ROUTINE *** 

3000 INPUT E* 

3020 E E f U R‘ N 

3999 REM **•* LOSE *** 

4000 PRINT CHET(125) 

4010 PRINT "THE MONSTER EATS YOU AND SAYS," 

4020 PRINT "'COULD USE A BIT MORE SALT 1 '" 
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4030 PRINT "YOU LOSE, FOR SURE,";END 

4999 REM ***- WIN *** 

5000 PRINT CHR$ (125) 

5010 FOR T = 1 TO 200 

5020 PRINT " YOU MADE IT .'!!"; 

5030 NEXT T 

Commodore 64 

1 REM *** THE MONSTER IN THE MARSH 64 *** 

10 S=15 
£0 M=15 
30 R=£4 

40 PRINT CHR$(147) 

50 PRINT TAB(7)"THE MONSTER IN THE MARSH!" 

60 PRINT 

70 PRINT TAB<8)"PRESS (SHIFT) TO BEGIN." 

80 GOSUB 3000 

90 X=INT(RND(1)*3)+1 

99 REM *** MAIN LOOP *** 

100 PRINT CHR$(147) 

110 IF R <1 THEN FL=1 

1£0 PRINT "YOU ARE"S"STEP (S) FROM THE MARSH’S END" 

130 PRINT "YOU HAVE"R"ROCK(S) IN YOUR POCKET" 

140 PRINT "THE MONSTER IS"M"STEP(S) BEHIND YOU" 

150 PRINT 

160 PRINT "YOUR CHOICES ARE:" 

170 PRINT 

180 PRINT "1) TAKE A STEP” 

190 PRINT "£) STAY WHERE YOU ARE" 

£00 IF FL=0 THEN PRINT "3) TOSS A ROCK" 

£10 PRINT 

££0 PRINT "TYPE A NUMBER, THEN PRESS (RETURN)." 

£30 INPUT "WHAT IS YOUR CHOICE";CH 
£40 IF FL=1 AND CH)£ THEN ££0 

£50 IF CH <1 OR CH> 3 THEN PRINT "BETWEEN 1 AND 3, PLEASE!": GOTO ££® 
£60 ON CH GOTO 700,1000,300 
£99 REM *** TOSS A ROCK *** 

300 PRINT CHR$(147) 

310 PRINT "TYPE THE NUMBER OF THE DIRECTION" 

3£0 PRINT "YOU WANT TO THROW THE ROCK," 

330 GOSUB £000 
340 FL=1 

350 PRINT CHR$(147) 

360 IF XOW THEN PRINT "SPLASH 1 " 

370 IF X=W THEN PRINT "THUD 1 " 

380 R=R—1 

390 IF M<1 THEN 4000 
400 PRINT 

410 PRINT "PRESS (SHIFT) TO CONTINUE." 

4£0 GOSUB 3000 
430 GOTO 100 

699 REM *** TAKE A STEP ROUTINE *** 

700 PRINT CHR$(147) 

710 PRINT "PRESS THE NUMBER OF THE DIRECTION" 

7£0 PRINT "YOU WANT TO STEP IN, " 

730 GOSUB £000 
740 PRINT CHR$(147) 

750 IF WOX THEN PRINT "SPLASH! YOU’RE SINKING!" 

760 Z=INT(RND(1)*3)+1 
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10 AWESOME PROGRAMS FROM K-POWER 


770 IF WOX AND Z=1 THEN M=M-1 : PRINT "BUT, YOU PULL YOURSELF OUT i " 
780 IF WOX AND Z <> 1 THEN PRINT "YOU L0SE!":END 
790 IF W=X THEN S=S-1:PRINT "YOU STEPPED SAFELY!" 

800 IF M < 1 THEN 4000 
810 IF S<1 THEN 5000 
8£0 PRINT 

830 PRINT "PRESS (SHIFT) TO CONTINUE." 

840 FL=0 
850 GOSUB 3000 
860 GOTO 90 

999 REM *** STAY WHERE YOU ARE *** 

1000 M=M—1 

1010 IF M <1 THEN 4000 
1020 FL=0 
1030 GOTO 100 

1999 REM *** CHOOSE DIRECTION *** 

£000 PRINT "THEN PRESS (RETURN)." 

£010 PRINT 

20£0 PRINT "1> LEFT" 

£030 PRINT "£) RIGHT" 

£040 PRINT "3) STRAIGHT AHEAD" 

£050 PRINT 

£060 INPUT "WHICH WAY";W 

£070 IF W<1 OR W> 3 THEN PRINT "BETWEEN 1 AND 3, PLEASE!":GOTO £060 
£080 RETURN 

£999 REM *** WAIT ROUTINE *** 

3000 WAIT 653,1 
3010 WAIT 653,1,1 
30£0 RETURN 

3999 REM *** LOSE *** 

4000 PRINT CHRt(147) 

4010 PRINT "THE MONSTER EATS YOU AND SAYS,” 

40£0 PRINT "’COULD USE A BIT MORE SALT!’" 

4030 PRINT "YOU LOSE, FOR SURE.":END 

4999 REM *** WIN *** 

5000 PRINT CHRt(147) 

5010 FOR T=1 TO £00 

50£0 PRINT " YOU MADE IT !!! 

5030 NEXT T 

IBM PC 

! REM *•** MONSTER IN THE HARSH *■** 

10 S'" 15 
20 T1~15 
30 F.”24 

TO Cl.fr 

50 PRINT TAB(9> "THE MONSTER" 

60 PRINT TAG<8> "IN THE HARSH!" 

70 PRINT 

BO PRINT TNO.4) "PRESS ANV KEY TO BEGIN" 

90 At") NT E = r 

1.0. ■ TF At”"" THEN 90 

109 REN ■**■* MAIN I..OGP **■* 

110 X---RNO •_ 3) 

120 CI...S 

130 IF R , I ; HEM F : l..~l 
140 PR .1. N'T " YOU ARE " S " ST IFF' < S > " 

I 5 ■ j P R 1 Mi " I R 0 M I H E M f T R 911 ' S E N D ' 1 
.1.60 PRINT 
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1 70 

PRINT 

" YOU HAVE " R " ROCK < S ) " 





180 

PRINT 

"IN YOUR POCKET" 





1 90 

PRINT 






200 

PRINT 

"THE MONSTER IS"M 





210 

PRINT 

"STEP (S) BEHIND YOU" 





220 

PRINT 






230 

PRINT 

"PRESS ANY KEY TO CONTINUE” 




240 

Hl=INK 

E Y ± 





250 

IF A$= 

"" THEM 240 





2&0 

CL S 






270 

PR 1 NT 

"YOUR CHOICES ARE:" 





280 

PR I NT 






290 

PR 1 N ! 

" 1 ) TAKE A STEP" 





300 

PRINT 

"2) STAY WHERE YOU ARE 

1 j 




310 

IF FL.- 

0 THEN PRINT "3> TOSS 

A ROCK" 




320 

PR IN 1 






330 

pr i: n r 

"TYPE A NUMBER" 





340 

PRINT 

"THEN PRESS (ENTER)" 





350 

PR IN 1 

"WHAT IS YOUR CHOICE" 





•360 

INPUT 

CH 





3 70 

IF FL.” 

1 AND CH>2 THEN 330 





330 

IF CLK 

1 OR CH >3 THEN 2*0 





390 

ON CH 

80 TO 700i1000, 400 





399 

REM ** 

* THROW A ROCK *** 





400 

CLS 






4 10 

PR .1 N 1 

"TYPE THE NUMBER" 





420 

PR I NT 

"OF THE DIRECTION" 





4 30 

PR 1. N T 

"YOU WANT TO" 





440 

PR TN I 

"THROW THE ROCK" 





450 

PE: 1 M i 






4*0 

GOSIJB 

2 0 0 (..) 





4 70 

F L. 1 






480 

CL. 8 






490 

IF *< 

W THEM PRINT "SPLASH!" 





500 

IP 

fHE.N PRINT "THUD 1 " 





5 10 

ft-R . 1 






520 

IF M< .1 

THEN 4000 





jj'U 

!j4u 

r h. .1. i ! 1 

PR I. N !' 

"PRESS ANY KEY TO CONI 

I NOE" 




550 

AT-- ] NT 

Er'T 





5*0 

if-’ r*== 

nrn n i 

"" THEN 550 





6 W 

REM ** 

> I AKfc A S 1 E.'.F' >;■ 





7 00 

CL 5 






7 :i. o 

PR 1 N f 

"PRESS THE NUMBER" 





7 20 

PR f M l 

"OP THE. DIRECT ION" 





y 30 

PR IN r 

"yOLJ WANT ! 0 STEF’ IN," 

: pr i i i r 




?40 

80 SUB 

2000 





7 5o 

CLS 3 /•- 

END < 4 





7 60 

IF F ; 

>'. 1 HEN PRINT "SPLASH Y 

00 RE SINKING 1 " 




7 80 

IF Wy 

AMD 1~1 THEN I'R-M . 1 F 

RJNI "BUT „ YOU PUI.J... 

v OURS 

ELF 

01. .1 1 ! " 

7 v o 

1 T W 

AMD 2 : ! 1 HEM PRINT 

"YOU LOSE! ": END 




800 

IF W"-X 

THEN S”S-:i. PR IN I " VOL 

STEPPED SAFELY ! " 




810 

IF IT''. :i 

1 HEN 4 AO< > 





820 

J.F S< 1 

1 HEN Si 





830 

FT '.' f N 1 






840 

FI... ~0 






85< * 

PR 1 N ! 

‘ ' P R E S S 11 N "i r . E < i 0 c 0 N 1 

.1. NUE 11 




660 

A*“-INH: 

£ Y i 
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870 I F A*="" I HEN 860 
880 GOTO 110 

999 REM •#** 8 IAV WHERE YOU ARE *** 

1000 M=M.1 

1010 .IF M< 1 THEN 4000 
1020 F-L.-0 
1030 GO T O 110 
2000 PRINT "THEN PRESS" 

2010 PRINT' "THE '.ENTER.' KEY” 

2020 PRINT 

2030 PRINT " 1 :< LEFT" 

2040 PRINT "2.) RIGHT" 

2050 PRINT "3> STRAIGHT' AHEAD" 

2060 PRINT 

20 70 PRINI "WHICH UJAY" ; 

2080 INPUT W 

2090 IF UK 1 OR W>3 THEN PRINT "1,2, OR 3 PLEASE'GOTO 2070 
2100 RET URN 

3999 REM *** TOO BAD f *** 

4000 CL8 

401.0 PRINT "I HE MONSTER EATS YOU AND SAYS," 

4020 PRINT "COULD USE A BIT MORE SALT!" 

4030 PRINT "YOU LOSE, FOR SURE.":END 

4999 REM *** YOU MADE IT 1 *** 

5000 CLS 

5010 FOR T-l TO 200 

5020 PRINT " YOU MADE IT'!! "; 


503; 

o NEXi l 


504 

0 END 


TI-99/4A 

1 REM *■** THE MONSTER IN 

Ti-iE MARSH 

i 

a- — i 
•._>. 


20 

M= 15 


3 0 

R--24 


40 

CALL CLEAR 


50 

PRINT TAB(7);"THE MON 

STEP " 

SO 

PRINT TAB(7) ;" IN THE 

MARSH " 

70 

PR l NT 


80 

PR I NT " PRESS ( ENTER ) 

TO BEGIN" : 

'VO 

INPUT 


99 

REM *** MAIN LOOP **•* 


1OC 

X --1 NT ( 3-xRND ) +1 


i i o 

f q | [ f";j f-T^p 


12C. 

TC OKi TI-IPM '} ’T/'-. Pi CC 
a. i i x i 1 i \L. ! M i i 1 __ 

140 

1 3< 

p| 1 


14C 

PRINT " YOU ARE ": S ;" S 

TER < G) ” 

•; tr 

PRINT "FROM THE MARS 

H'S EDGE" 

1 60 

Dp T KIT* 

i l \ X 1 '1 I 


17C 

ppTMT nvni j i..{/u ;ir h o - n 

Op,O ) n 

18>: 

PRINT "IN YOUR POCKE 

*•}* !1 

J.9C 

PR r |\!"f 


20 ■' 

PRINT "THE MONSTER I 

i! „ M 
-_j », * i 

2 1 C 

PRINT "STEP(S) BEHIN 

D YOU" 

22C 

PR I NT 



PRINT "YOUR CHO I CL S 

ARE: " 

24C 

PR I NT 


25C 

PRINT TAKE A STE 

f, [« 

“1 { - 
Ci 

PRINT "2; STAY WHERE 

YOU ARE" 
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270 

IF' FL..—0 

THEN 280 ELSE 290 

28 0 

PRINT " 

3) TOSS A ROCK" 

290 

PR I NT 


300 

PRINT M 

TYPE A NUMBER" 

3 10 

PRINT " 

THEN PRESS (ENTER)" 

320 

PRINT " 

WHAT IS YOUR CHOICE"; 

*T 

INPUT C 

H 

340 

IF FL==1 

THEN 350 ELSE 360 


IF CH>2 

THEN 300 ELSE 360 

.3 AO 

IF CH< :!. 

THEN 380 ELSE 370 

370 

IF CH>3 

THEN 380 ELSE 410 

380 

PRINT " 

J. ,, 2 OR 3 PLEASE 1 " 

390 

PR I NT 


400 

GUfCj 25 

o 

4 1 0 

ON CH G 

CTO 620,330,,420 

419 

REM *** 

TOSS A ROCK *** 

420 

CALL CL. 

EAR 

430 

PRINT " 

TYPE THE NUMBER" 

440 

PRINT ,! 

0 F’ T HE DI RE C T10 N 11 

450 

PRINT " 

YOU WANT TO" 

460 

PRINT " 

TOSS THE ROCK," 

4 7 0 

PR I NT 


490 

60SUB 920 

490 

FL= 1 


■5 0 0 

CALL CL 

EAR 

5 j. 0 

IF X< >W 

THEN 520 ELSE 530 

520 

PRINT " 

SPLASH : " 

530 

IF X—W 

THEM 540 ELBE 550 

540 

PRINT " 

IF MCI. 

THUD ! " 

5 6 0 

THEN 1070 

570 

PRINT 


SP'O 

PRINT " 

PRESS (ENTER)" 

590 

PRINT " 

TO CONTINUE., " 

600 

INPUT R 


610 

GOTO 11. 


A i 9 

Fi E M * * * 

ThKE h :.j FEP 

620 

CALL CL 

EAR 

.6 T /"> 

PRINT " 

PRESS THE NUMBER" 

640 

PRINT " 

OF THE DIRECTION" 

650 

PRINT " 

YOU WANT TO STEP" 

660 

GOSUB 9 

20 

670 

CALL CL. 

EAR 

680 

l'F WOX 

THEN 690 ELSE 770 

690 

5=1 NT (3 

*RND) i 

700 

PRINT |: 

SPLASH YOU'RE SINKING 1 " 

7 ;t o 

IF Z — 1 

THEN 720 ELSE 740 

720 

PRINT 11 

BUT, YOU PULL YOURSELF OUT 

729 

REM *** 

STAY WHERE YOU ARE •*** 

7 3 0 

M~M.1 


740 

IF ZOi 

THEN 750 ELSE 770 

750 

PRINT " 

YOU LOSE 1 " 

/ Cj 

END 


770 

IF W "X 

THEN 780 ELSE 800 

700 

PRINT " 

YOU STEPPED SAFELY" 

790 

p,i. j 


Of).;"', 
u/ '•J 

IF M< I 

THEN 1070 
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830 

PR y NT 

"PRESS (ENTER) " 


840 

PRINT 

"TO CONTINUE, ” 


850 

INPUT 

R* 


060 

i‘ ’ L. 0 



P, 

GOTO 1 

' ) ( ) 


880 

M--M--1 



OOP. 

IF M< 1 

< ! 11_I '£ J. -J f 


900 

f\ O 



9 3 o 

GOTO 1 

00 


'7 .{. / 

REM *■* 

n t DpTT r hm ; npp 

*:»• ‘A- 

920 

PL: I S'I ] 

"! HEN PRESS" 


o ~r t~\ 

PRINT 

"THE (ENTER) KEY, " 


940 

PR I NT 



950 

PRINT 

i s -[ \ {_ r: p t < 1 


960 

O O T MT 

* 1 \ J. 1 ’•! 1 

”2) RIGHT" 


970 

PRINT 

" 3 ) SiRA1OH 1 AHEAD 

H 

980 

p c;« t ,\ i r 

1 1 \ X ! '•! I 



990 

DO T hiT 

1 . \ ... I H ! 

n ;. f L.l V r- I...I I.fAV " .. 
i /v i •: j. 1 i /v ri i a 


10 i j 0 

1 J. Nr ‘u i 

uJ 


10 3.0 

IF W< 

1 THEN 1040 ELSE I 

Co 

1020 

1 PRINT 

i*i -7> pip ;“r ps p f ^qp i 

H 

1 030 

X I- w 

3 THEN 1040 ELBE 1 

06 

1040 

■ PRINT 

r :!. , 2 OR 3 PLEASE 1 

11 

1050 

GOTO 

i ooo 


10 6 0 

. j:.;- c: t j j r::< 

N 


1069 

5*9 uil • ^ i 

■»* YOU LOSE •*** 


10 7 0 

1 CALL 

CLEAR 


•; 7"; O /""j 

; “ i". j. Im r 

"THE MONSTER EATS 

11 

| (”l 9 

r PRINT 

"YOU AND SAYS," 



1100 PRINT "'COULD USE A bl 
.1:1:10 PRINT "YOU LOSE, FOR S 


1 i20 END 

1130 CALL CLEAR 

1140 FOR T=i TO 100 

1150 PRINT "YOU MADE IT: 1 !" 

j. 160 PR I NT 

1170 NEXT T 

•j i p,"i p^n 


Timex 1000 w/16K RAM Pack and Timex 1500 


1 REM *■*■** MONSTER IN THE MARSH TIMEX **** 

10 LET S—15 

20 LET M=15 

30 LET R=24 

40 CLS 

50 PRINT TAB (4)5"THE MONSTER IN THE MARSH” 
60 PRINT 

70 PRINT TAB (5)5"PRESS (ENTER) TO BEGIN." 
80 INPUT R$ 

90 RAND 
100 LET F=0 

110 LET C=0 

120 LET W=0 

130 LET X=INT (RND*3>+1 

139 REM *** MAIN LOOP *** 

140 CLS 

150 IF R<1 THEN LET F=1 

160 PRINT "YOU ARE "*SJ" STEP(S) FROM THE" 
170 PRINT "END OF THE MARSH. YOU HAVE "!R 
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180 PRINT "ROCK(S) IN YOUR POCKET." 

190 PRINT "THE MONSTER IS ";M;" STEP<S>" 

200 PRINT "BEHIND YOU." 

210 PRINT 

220 PRINT "YOUR CHOICES ARE:" 

230 PRINT 

240 PRINT "1) TAKE A STEP" 

250 PRINT "2) STAY WHERE YOU ARE" 

260 IF F=0 THEN PRINT "3) TOSS A ROCK" 

270 PRINT 

280 PRINT "TYPE A NUMBER," 

290 PRINT "THEN PRESS <ENTER>." 

300 PRINT "WHAT IS YOUR CHOICE?" 

310 INPUT C 

320 IF F=1 AND 02 THEN GOTO 280 

330 IF C<1 OR 03 THEN PRINT "1,2 OR 3 PLEASE." 

340 IF C<1 OR 03 THEN GOTO 280 
350 IF C=1 THEN GOTO 700 
360 IF C=2 THEN GOTO 1000 
370 IF C=3 THEN GOTO 400 
400 CLS 

410 PRINT "TYPE THE NUMBER OF THE DIRECTION" 

420 PRINT "YOU WANT TO THROW THE ROCK." 

430 GOSUB 2000 
440 LET F=1 
450 CLS 

460 IF XOW THEN PRINT "SPLASH" 

470 IF X=W THEN PRINT "THUD" 

480 LET R=R—1 

490 IF M<1 THEN GOTO 4000 

500 PRINT 

510 PRINT "PRESS (ENTER) TO CONTINUE." 

520 INPUT R* 

530 GOTO 140 

699 REM *** TAKE A STEP *** 

700 CLS 

710 PRINT "TYPE THE NUMBER OF THE DIRECTION" 

720 PRINT "YOU WANT TO STEP IN." 

730 GOSUB 2000 
740 CLS 

750 IF WOX THEN PRINT "SPLASH" 

760 LET 1=0 

770 LET 1=1 NT (RND*3)+1 

780 IF WOX AND 1 = 1 THEN LET M=M-1 

790 IF WOX AND Z=1 THEN PRINT "BUT YOU PULLED YOURSELF OUT." 
800 IF WOX AND ZOl THEN PRINT "YOU LOSE." 

810 IF WOX AND ZOl THEN GOTO 5040 
820 IF W=X THEN LET S=S-1 

830 IF W=X THEN PRINT "YOU STEF'ED SAFELY." 

840 IF M<1 THEN GOTO 4000 
850 IF SCI THEN GOTO 5000 
860 PRINT 

870 PRINT "PRESS (ENTER) TO CONTINUE." 

880 LET F=0 
890 INPUT R$ 

900 GOTO 130 

999 REM *** THROW A ROCK *** 

1000 LET M=M-1 

1010 IF M<1 THEN GOTO 4000 
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1020 LET F=0 
1030 GOTO 140 

1999 REM *** CHOOSE DIRECTION *** 

2000 PRINT "THEN PRESS THE (ENTER) KEY." 

2010 PRINT 

2020 PRINT "1) LEFT" 

2030 PRINT "2> RIGHT" 

2040 PRINT "3) STRAIGHT" 

2050 PRINT 

2060 PRINT "WHICH WAY?" 

2070 INPUT W 

2080 IF W<1 OR W>3 THEN PRINT "1,2 OR 3 PLEASE." 

2090 IF W<1 OR W>3 THEN GOTO 2060 

2100 RETURN 

3999 REM *** LOSE *** 

4000 CLS 

4010 PRINT "THE MONSTER EATS YOU AND SAYS," 

4020 PRINT "COULD USE A BIT MORE SALT." 

4030 PRINT "YOU LOSE, FOR SURE." 

4040 GOTO 5040 

4999 REM •*** WIN *** 

5000 CLS 

5010 FOR T=1 TO 46 

5020 PRINT " YOU MADE IT"; 

5030 NEXT T 

5040 REM *** END *** 


TRS-80 Color Computer 


1 REM *•** THE MONSTER IN THt MARSH TrtS - 80 CUi_uR *■*•■*• 
10 S=15 
£0 M=15 
30 R=£4 
40 CLS 

50 PRINT TAB(9) "THE MONSTER" 

60 PRINT TAB (8) "IN THE MARSH!" 

70 PRINT 

80 PRINT TAB(4) "PRESS ANY KEY TO BEGIN" 

90 A*=INKEY* 

100 IF A*="" THEN GOTO 90 


109 

110 
1£0 
130 
140 
150 
160 
170 
180 
190 
£00 
£10 
££0 
£30 
£40 
£50 
£60 
£70 
£80 
£90 


REM *** MAIN LOOP *** 

X=RND(3) 

CLS 

IF R <1 THEN FL=i 

PRINT "YOU ARE"S"STEP(S)" 

PRINT "FROM THE MARSH’S END" 

PRINT 

PRINT "YOU HAVE"R"ROCK(S)“ 

PRINT "IN YOUR POCKET" 

PRINT 

PRINT "THE MONSTER IS"M 
PRINT "‘STEP (S) BEHIND YOU" 

PRINT 

PRINT "PRESS ANY KEY TO CONTINUE" 
A$=INKEY* 

IF A*="" THEN GOTO £40 
CLS 

PRINT "YOUR CHOICES ARE:" 

PRINT 

PRINT "1) TAKE A STEP" 
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300 PRINT "£) STAY WHERE YOU ARE" 

310 IF FL=0 THEN PRTNT "3) TOSS A ROCK" 

320 PRINT 

330 PRINT "TYPE A NUMBER" 

340 PRINT "THEN PRESS (ENTER)" 

350 PRINT "WHAT IS YOUR CHOICE"; 

360 INPUT CH 

370 IF FL=1 AND CH> £ THEN 330 
380 IF CH(1 OR CH> 3 THEN GOTO £60 
390 ON CH GOTO 700,1000,400 

399 REM *** CHUCK THE ROCK *** 

400 CLS 

410 PRINT "TYPE THE NUMBER" 

420 PRINT "OF THE DIRECTION" 

430 PRINT "YOU WANT TO" 

440 PRINT "THROW THE ROCK" 

450 PRINT 
460 GOSUB £000 
470 FL=1 
480 CLS 

490 IF XOW THEN PRINT "SPLASH!" 

500 IF X=W THEN PRINT "THUD" 

510 R=R—1 

520 IF M <1 THEN 4000 
530 PRINT 

540 PRINT "PRESS ANY KEY TO CONTINUE" 

550 A*=INKEY* 

560 IF A$="" THEN 550 
570 GOTO 120 

699 REM *** TAKE A STEP ROUTINE *** 

700 CLS 

710 PRINT "PRESS THE NUMBER" 

720 PRINT "OF THE DIRECTION" 

730 PRINT "YOU WANT TO STEP IN,":PRINT 
740 GOSUB £000 
750 CLS:Z=RND(4) 

760 IF WOX THEN PRINT "SPLASH YOU’RE SINKING!" 

780 IF WOX AND Z=1 THEN M=M-1:PRINT "BUT, YOU PULL YOURSELF OUT!" 
790 IF WOX AND ZOl THEN PRINT "YOU i_QS£ ! " : END 
800 IF W=X THEN S=S-1:PRINT "YOU STEPPED SAFELY!" 

810 IF M <1 THEN 4000 
820 IF SCI THEN 5000 
830 PRINT 
840 FL=0 

850 PRINT "PRESS ANY KEY TO CONTINUE" 

860 A$=INKEY$ 

870 IF A*="" THEN 860 
880 GOTO 110 

999 REM *** STAY WHERE YOU ARE *** 

1000 M=M-1 

1010 IF MCI THEN 4000 
1020 FL=0 
1030 GOTO 110 
2000 PRINT "THEN PRESS" 

£010 PRINT "THE (ENTER) KEY. " 

£020 PRINT 

£030 PRINT ”1) LEFT" 

£040 PRINT "£) RIGHT" 

£050 PRINT ”3) STRAIGHT AHEAD" 
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£080 PRINT 

£070 PRINT "WHICH WAY"; 

£080 INPUT W 

£090 IF W<1 OR W>3 THEN PRINT "1,£ OR 3 PLEASE!":GOTO c 
£100 RETURN 

3999 REM *** SORRY CHARLIE *** 

4000 CLS 

4010 PRINT "THE MONSTER EATS YOU AND SAYS," 

40£0 PRINT "’COULD USE A BIT MORE SALT!" 

4030 PRINT "YOU LOSE, FOR SURE.":END 

4999 REM *** YOU’RE IN LUCK *** 

5000 CLS 

5010 FOR T=1 TO £00 

50£0 PRINT" YOU MADE IT!!! "; 

5030 NEXT T 
5040 END 

TRS-80 Model III and Model 4 

1 REM *** THE MONSTER IN THE MARSH TRS-80 MODELS 3 AND 
10 S=15 
20 M= 15 
30 R=24 
40 CLS 

50 PRINT TAB(32)"THE MONSTER" 

80 PRINT TAB(31) "IN THE MARSH!" 

70 PRINT 

80 PRINT TAB(28)"PRESS ANY KEY TO BEGIN" 

90 A*=INKEY* 

100 IF A*="" THEN GOTO 90 

109 REM *** MAIN LOOP *** 

110 X=RND(3> 

120 CLS 

130 IF R<1 THEN FL=1 

140 PRINT "YOU ARE"S"STEP(S)" 

150 PRINT "FROM THE MARSH’S END" 

180 PRINT 

170 PRINT "YOU HAVE"R"ROCK(S)" 

180 PRINT "IN YOUR POCKET" 

190 PRINT 

200 PRINT "THE MONSTER IS"M 
210 PRINT "STEP(S) BEHIND YOU" 

220 FRINT 

230 PRINT "PRESS ANY KEY TO CONTINUE" 

240 A*=INKEY* 

250 IF A*="" THEN GOTO 240 
280 CLS 

270 PRINT "YOUR CHOICES ARE:" 

280 PRINT 

290 PRINT "1> TAKE A STEP" 

300 PRINT "2) STAY WHERE YOU ARE" 

310 IF FL=0 THEN PRINT "3) TOSS A ROCK" 

320 PRINT 

330 PRINT "TYPE A NUMBER" 

340 PRINT "THEN PRESS (ENTER) 

350 PRINT "WHAT IS YOUR CHOICE" 

360 INPUT CH 

370 IF FL=1 AND CH>2 THEN 330 
380 IF CH<1 OR CH>3 THEN 260 
390 ON CH GOTO 580,770,400 


070 


4 *** 
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400 CLS 

410 PRINT "TYPE THE NUMBER" 

420 PRINT "OF THE DIRECTION" 

430 PRINT "YOU WANT TO" 

440 PRINT "THROW THE ROCK" 

450 PRINT 
460 GOSUB 810 
470 FL=1 
480 CLS 

490 IF XOW THEN PRINT "SPLASH!" 

500 IF X=W THEN PRINT "THUD" 

510 R=R—1 

520 IF M<1 THEN 920 
530 PRINT 

540 PRINT "PRESS ANY KEY TO CONTINUE" 

550 A$=INKEY$ 

560 IF A*="" THEN 550 
570 GOTO 120 

579 REM *** TAKE A STEP ROUTINE *** 

580 CLS 

590 PRINT "PRESS THE NUMBER" 

600 PRINT "OF THE DIRECTION" 

610 PRINT "YOU WANT TO STEP IN,":PRINT 

620 GOSUB 810 

630 CLS 

640 Z=RND(4) 

650 IF WOX THEN PRINT "SPLASH YOU’RE SINKING!" 

660 IF WOX AND Z = 1 THEN M=M~l: PRINT "BUT, YOU PULL YOURSELF OUT!" 

670 IF WOX AND Z<>1 THEN PRINT "YOU LOSE 1 "! END 

680 IF W=X THEN S=S-1:PRINT "YOU STEPPED SAFELY!" 

690 IF M<1 THEN 920 

700 IF SCI THEN 960 

710 PRINT 
720 FL=0 

730 PRINT "PRESS ANY KEY TO CONTINUE" 

740 A$=INKEY$ 

750 IF A$="" THEN 740 
760 GOTO 110 

769 REM *** STAY WHERE YOU ARE *** 

770 M=M—1 

780 IF MCI THEN 920 
790 FL=0 


800 GOTO 110 

810 PRINT "THEN PRESS" 

820 PRINT "THE (ENTER) KEY." 


830 PRINT 
840 PRINT 
850 PRINT 
860 PRINT 
870 PRINT 
880 PRINT 


"1) LEFT" 

"2) RIGHT" 

"3) STRAIGHT AHEAD" 

"WHICH WAY" 


890 INPUT W 

900 IF WC1 OR W>3 THEN PRINT "1,2 OR 3 PLEASE!":GOTO 880 
910 RETURN 

919 REM *** SORRY CHARLIE *** 

920 CLS 

930 PRINT "THE MONSTER EATS YOU AND SAYS," 

940 PRINT "’COULD USE A BIT MORE SALT!" 

950 PRINT "YOU LOSE, FOR SURE.":END 
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959 REM *** YOU'RE IN LUCK *** 

960 CLS 

970 FOR T=1 TO 200 

980 PRINT " YOU MADE IT 1 !! " 

990 NEXT T 

1000 END 

VIC-20 


1 REM *** THE MONSTER IN THE MARSH VIC-£0 *** 
10 S=15 
£0 M=15 
30 R=£4 

40 PRINT CHR$(147) 

50 PRINT TAB(5)"THE MONSTER" 

60 PRINT TAB(4)"IN THE MARSH" 

70 PRINT 

80 PRINT "PRESS (SHIFT) TO BEGIN" 

30 GOSUB 3000 


93 REM *** MAIN LOOP *** 


100 

110 

1£0 

130 

140 

150 

160 

170 

180 

190 

£00 

£10 

££0 

£30 

£40 

£50 

£60 

£70 

£80 

£90 

300 

310 

320 

330 

339 


X=INT(RND(1)*3>+1 
PRINT CHR$(147) 

IF R <1 THEN FL=1 

PRINT "YOU ARE"S"STEP(S)" 

PRINT "FROM THE MARSH’S END" 

PRINT 

PRINT "YOU HAVE"R"ROCK(S)" 

PRINT "IN YOUR POCKET" 

PRINT 

PRINT "THE MONSTER IS"M 
PRINT "STEP(S> BEHIND YOU" 

PRINT 

PRINT "YOUR CHOICES ARE:" 

PRINT 

PRINT "i) TAKE A STEP" 

PRINT "£) STAY WHERE YOU ARE" 

IF FL=0 THEN PRINT"3) TOSS A ROCK" 
PRINT 

PRINT "TYPE A NUMBER" 

PRINT "THEN PRESS (RETURN)" 

INPUT "WHAT IS YOUR CHOICE":CH 

IF FL=1 AND CH> £ THEN £80 

IF CH <1 OR CH> 3 THEN PRINT:GOTO £20 

ON CH GOTO 700,1000,340 

REM *** TOSS A ROCK ROUTINE *** 


340 PRINT CHR$(147) 

350 PRINT "TYPE THE NUMBER" 

360 PRINT "OF THE DIRECTION" 

370 PRINT "YOU WANT TO" 

380 PRINT "TOSS THE ROCK, " 

390 PRINT 
400 GOSUB £000 
410 Fi_=l 

4£0 PRINT CHR$(147) 

430 IF XOW THEN PRINT "SPLASH" 1 
440 IF X=W THEN PRINT "THUD!" 

450 R=R—1 

460 IF M <1 THEN 4000 
470 PRINT 

480 PRINT "PRESS (SHIFT)" 
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490 

PRINT "TO CONTINUE." 


500 

GOSUB 3000 


510 

GOTO 110 


699 

REM *** TAKE ft STEP ROUTINE *** 


700 

PRINT CHR$(147) 


710 

PRINT "PRESS THE NUMBER" 


720 

PRINT "OF THE DIRECTION" 


730 

PRINT "YOU WANT TO STEP IN." 


740 

GOSUB 2000 


750 

PRINT CHR$<147) 


760 

IF WOX THEN PRINT "SPLASH YOU’RE SINK 

INS ! " 

780 

IF WOX AND Z=1 THEN M=M-i: PRINT "BUT, 

YOU PULL YOURSELF OUT!" 

790 

IF WOX AND ZOl THEN PRINT "YOU LOSE! 

" : END 

600 

IF W=X THEN S=S-1:PRINT "YOU STEPPED SAFELY!" 

810 

IF MCI THEN 4000 


820 

IF SCI THEN 5000 


830 

PRINT 


840 

PRINT "PRESS (SHIFT)" 


850 

PRINT "TO CONTINUE. " 


860 

FL^O 


870 

30SUB 3000 


690 

GOTO 100 


9SS 

REM •*** STAY WHERE YOU ARt 


1 000 

M=M-1 


1010 

IF MCI THEN 4000 


1020 

FL~0 


i 030 

GOTO 100 


1999 

RtM *** CHOOSE DIREL;luN *#* 


2000 

PRINT "THEN PRESS" 


2010 

PRINT "THE C RETURN) KEY. 11 


2020 

PRINT 


8030 

PRINT "I) LEFT" 


2040 

PRINT "2) RIGHT" 


8050 

PRIM "3) STRAIGHT AHEAD" 


2060 

PRINT 


6070 

INPUT "WHICH WAY";W 


2080 

IF WC1 OR W> 3 THEN PRINT:GOTO 2070 


2090 

Z = INT(RND C1)*4) + 1 


2100 

RETURN 


2999 

REM *** WAIT ROUTINE *** 


3000 

WAIT 653, 1 


3010 

WAIT 653,1,1 


3020 

RETURN 


3999 

REM *■** LOSE **•* 


4000 

PRINT CHR$(147) 


4010 

PRINT "THE MONSTER EATS YOU AND SAYS 


4020 

PRINT "’COULD USE A BIT MORE SALT *’" 


4030 

PRINT "YOU LOSE, FOR SURE.":END 


4999 

REM * * * Win * * * 


5000 

PRINT CHR$(147) 


5010 

FOR T=1 TO 200 


5020 

PRINT " YOU MADE IT : ! ! " : 


5030 

NEXT 7 
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BONUS PROGRAM #8 

TEAM BATTING AVERAGE 
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ADAM 

1 REM *** TEAM BATTING AVERAGE ADAM *** 

10 HOME 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 

30 PRINT 

40 PRINT "Press (RETURN) after each reply." 

50 PRINT 

60 INPUT "How many players: p 

79 REM *** dimension arrays *** 

80 DIM p$(p), ab(p), ws(p), h(p) 

89 REM *** input variables *** 

90 HOME 

100 PRINT "Please answer the questions." 

110 PRINT "Press (RETURN) after each reply." 

120 PRINT 

130 FOR t = 1 TO p 

140 PRINT "What is player t; "'s name" 

150 INPUT p$(t) 

160 PRINT "What were "; p$(t); s total at bats" 

170 INPUT ab(t) 

180 PRINT "How many walks and sacrifices" 

190 INPUT ws(t) 

200 PRINT "How many hits" 

210 INPUT h(t) 

220 IP h(t) + ws(t) > ab(t) THEN PRINT "Number too high": GOTO 160 
230 HOME 
240 NEXT t 

250 PRINT "AVERAGE", "PLAYER" 

260 PRINT 

269 REM *** figure averages *** 

270 FOR t = 1 TO p 

280 b = h(t)/(ab(t)-ws( t)) 

289 REM *** round off to three digits *** 

290 a = INT(b*1000+ .5)/l00 
300 ta = ta+ab(t) 

310 th = th+h(t) 

320 tw = tw+ws(t) 

329 REM *** print averages *** 

330 PRINT a, p$(t) 

340 NEXT t 

350 PRINT 

360 tv = th/(ta-tw) 
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370 PRINT "TEAM AVERAGE^"; INT(tv*1000+.5)/1000 
380 PRINT 

390 PRINT "Press any key to run again." 

400 GET n$ 

410 RUN 

Apple II and Apple lie 

1 REM *** TEAM BATTING AVERAGE APPLE *** 

10 HOME 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 

30 PRINT 

40 PRINT "PRESS (RETURN) AFTER EACH REPLY." 

50 PRINT 

60 INPUT "HOW MANY PLAYERS: ";P 

79 REM *** DIMENSION ARRAYS *** 

80 DIM PT(P),AB(P)„WS(P>„H(P) 

89 REM *** INPUT VARIABLES *** 

90 HOME 

100 PRINT "PLEASE ANSWER THE QUESTIONS." 

110 PRINT "PRESS (RETURN) AFTER EACH REPLY." 

120 PRINT 

130 FOR T = 1 TO P 

140 PRINT "WHAT IS PLAYER #"T"'S NAME" 

150 INPUT FT <T> 

160 PRINT "WHAT WERE "FT(T)"'S TOTAL AT BATS" 

.170 INPUT AB (T) 

180 PRINT "HOW MANY WALKS AND SACRIFICES" 

.190 INPUT WS (T ) 

200 PRINT "HOW MANY HITS" 

210 INPUT H(T) 

220 IF H(T> + WS(T) > AB(T) THEN PRINT "NUMBER TOO HIGH": GOTO 160 

230 HOME 
240 NEXT T 

250 PR I NT " AVERAGE " " PLAYER " 

260 PRINT 

269 REM **■* FIGURE AVERAGES #** 

270 FOR T = .1. TO P 

280 B = H(T) / <AB(T) - WS(T>) 

289 REM *** ROUND OFF TO THREE DIGITS *** 

290 A ~ INT (B ■* 1000 + .5) / 1000 

300 TA - TA + AB(T) 

310 TH == TH + H (T) 

320 TW = ' TW + WS (T) 

329 REM *** PRINT AVERAGES *•** 

330 PRINT A,PT(T) 

340 NEXT T 

350 PRINT 

360 TV = TH / (TA - TW) 

370 PRINT "TEAM AVERAGE”" INT (TV * 1000 + .5) / 1000 
380 PRINT 

390 PRINT "PRESS ANY KEY TO RUN AGAIN." 

400 GET NT 
410 RUN 

Atari 

i REM •***:• IE AM BATTING 
10 PR IN'! GHRT t ;!, 25) 

20 PRINT "TEAM BATTING 
30 PRINT 


AVERAGE ATARI *** 
AVERAGE PROGRAM 11 
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40 PRINT "PRESS (RETURN) AFTER EACH REPLY." 

HO PRINT 

SO PRINT "HOW MANY PLAYERS"; 

70 INPUT P 

79 REM •*** DIMENSION ARRAYS ■*** 

SO DIM P# <1200) ,AB(P) ,WS(P) ,H(P) ,TEMP#(20) ,R#( 1 ) ,S(400) 

89 REM *** INPUT VARIABLES *** 

90 PRINT CHR# <125) 

100 PRINT "PRESS (RETURN) AFTER EACH REPLY" 

110 PRINT 

120 FOR T=1 TO P 

130 S ( T) -LE.N (P# ) +1 

140 PRINT "WHAT S THE NAME OF" 

1 HO PRINT "PLAYER #";T; 

155 P#(S(T))=TEMPT 
160 INPUT TEMP# 

170 P#(S<T) >- TEMP# 

.1.80 PRINT 

190 PRINT "WHAT WERE ";TEMP#;"'S" 

200 PRINT "TOTAL AT BATS"; 

210 INPUT D 
220 AB(T)"B 
230 PRINT 

240 PRINT "HOW MANY WALKS" 

250 PRINT "AND SACRIFICES"; 

260 INPUT D 
270 WS(T}~D 
280 PR IMI 

290 PRINT “HOW MANY HITS"; 

300 INPUT D 
310 H<!)“D 

320 IF WS(T)+H(T)>AB<T) THEN PRINT r PRINT "NUMBER TO HIGH":GOTO 230 
330 PRINT CHR# t125 ? 

340 NEXT T 

350 S rr )“LEN<P #)41 

360 PRINT "AVERAGE.","PLAYER" 

3/0 PRINT 

3 79 jvj *** F IGURE AVERAGES *■#* 

380 FOR 1 TO P 

390 6“FI < T) / (AB < r) WS < T) > 

399 REM *** ROUND OFF TO THREE DIGITS * 

400 A= IN T t. B* 1000+0 > 5) ■■ 1000 
41.0 TA-- I'A+AB ' . T ) 

420 TH~TH+H(!) 

430 1W~TW+WS ( 1 ) 

440 FRIN! A,P#(S<T) ,S( !+1).1 ) 

449' REIT *** F'R I NT AVERAGES •**•* 

450 NEXT T" 

460 PRINT 

4 70 TV=TH/ (TV 1 .TW) 

460 F'R IM ! " TEAM AVEFlAGE” " : INI ( TV* 1000+0.5) / 1000 
49u PRINT 

5o0 PRINT "PRESS (RETURN) 10 RUT! AGAIN" 

510 INPUT R# 

520 RUN 

Commodore 64 

1 REM *** TEAM BATTING AVERAGE 64 *** 

10 PRINT CHR#(147) 

£0 PRINT "TEAM BATTING AVERAGE PROGRAM" 
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30 PRINT 

40 PRINT "PRESS (RETURN) AFTER EACH REPLY." 

50 PRINT 

60 PRINT "HOW MANY PLAYERS"; 

70 INPUT P 

79 REM *** DIMENSION ARRAYS *** 

80 DIM P*(P>,AB(P),WS(P),H(P) 

89 REM *** INPUT VARIABLES *** 

90 PRINT CHR$(147) 

100 PRINT "PLEASE ANSWER THE QUESTIONS." 

110 PRINT "PRESS (RETURN) AFTER EACH REPLY." 

120 PRINT 

130 FOR T=1 TO P 

140 PRINT "WHAT IS PLAYER #"T"’S NAME" 

150 INPUT P*(T) 

160 PRINT "WHAT WERE "P*(T)"»S TOTAL AT BATS" 

170 INPUT AB(T) 

180 PRINT "HOW MANY WALKS AND SACRIFICES" 

190 INPUT WS(T) 

£00 PRINT "HOW MANY HITS" 

£10 INPUT H(T) 

££0 IF H (T) +WS (T) ) AB (T) THEN PRINT"NUMBER TOO HIGH" .-GOTO 160 
£30 PRINT CHR$(147) 

£40 NEXT T 

£50 PRINT "AVERAGE","PLAYER" 

£60 PRINT 

£69 REM *** FIGURE AVERAGES *** 

£70 FOR T=1 TO P 

£80 B=H(T)/(AB(T)-WS(T)) 

£89 REM *** ROUND OFF TO THREE DIGITS *** 

£90 P=INT(B*1000+.5)/1000 
300 TA=TA+AB(T) 

310 TH=TH+H(T) 

3£0 TW=TW+WS(T) 

3£9 REM *** PRINT AVERAGES *** 

330 PRINT A,P$ (T) 

340 NEXT T 

350 PRINT 

360 TV=TH/(TA-TW) 

370 PRINT "TEAM AVERAGE="INT(TV*1000+. 5) / 1000 
380 PRINT 

390 PRINT "PRESS (SHIFT) TO RUN AGAIN." 

399 REM *** WAIT ROUTINE *** 

400 WAIT 653, 1 
410 WAIT 653,1,1 
4£0 RUN 

IBM PC 

1 REM *** TEAM BATTING AVERAGE IBM-RC *•** 

10 CLS 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 

30 PRINT 

40 PRINT "PRESS (ENTER) AFTER EACH REPLY." 

50 PRINT 

60 PRINT "HOW MANY PLAYERS"; 

70 INPUT p 

79 REM *** DIMENSION ARRAYS *** 

80 DIM F$(P) ,AB(P) ,WS <P) ,H(P) 

89 REM *** INPUT VARIABLES *** 
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90 CLS 

100 PRINT "PRESS (ENTER) AFTER EACH REPLY." 

110 PRINT 

120 FOR T=1 TO P 

130 PRINT "WHAT IS THE NAME OF" 

140 PRINT "PLAYER #";T; 

150 INPUT F’*<T> 

160 PRINT 

170 PRINT "WHAT WERE ";FT(T):"'S" 

180 PRINT "TOTAL AT BATS"; 

190 INPUT AB(T) 

200 PRINT 

210 PRINT "HOW MANY WALKS" 

220 PRINT "AND SACRIFICES": 

230 INPUT WS(T) 

240 PRINT 

250 PRINT "HOW MANY HITS": 

260 INPUT H(T) 

270 IF H(T)+WS(T)>AB<T> THEN PRINT "NUMBER TOO HIGH":GOTO 170 
280 CLS 
290 NEXT T 

300 PRINT "AVERAGE","PLAYERS" 

310 PRINT 

319 REM *** FIGURE AVERAGES *** 

320 FOR T=1 TO P 

330 B=H(T)/(AB(T)-WS(T)) 

340 A=INT(B*1000+.5)/1000 
350 TA=TA+AB < 7) 

360 TH=TH+H(T) 

370 TW=TW+WS(T) 

379 REM *** PRINT AVERAGES *** 

380 PRINT A,P$<T> 

390 NEXT T 

400 PRINT 

410 TV=TH/(TA-TW) 

420 PRINT "TEAM AVERAGE-";INT(TV*1000+.5>/1000 
430 PRINT 

440 PRINT "PRESS (ENTER) TO RUN AGAIN" 

449 REM *** WAIT ROUTINE *** 

450 INPUT R$ 

460 RUN 

TI-99/4A 

1 REM **•* I CAM B( i f I 1 NO AVERAGE II99/4A *** 

10 CALL CLEAR 

20 PR .1. i! ! " ! CAM BATTING AVERAGE PROGRAM" 

30 PRINI 

40 PRINT "PRESS (ETHER) AFTER EACH REPLY." 

50 PRINT 

60 PRINT "HOW MANY PLAYERS"; 

70 INPUT p 

79 REM •*** DIT1ENSIUN ARPAyS *** 

80 L> IM 30; H MR ( 30) „ WS (30) ,, H 1 30) 

90 CALL.. CLEAR 

100 PP.I.H! "PLEASE ANSWER THE QUESTIONS." 

1 .1.0 PRIM i 

120 PRlf-i! "PRESS (ENTER* AFTER EACH REPLY,," 

130 PRINT 

139 REM >+:■■£ INPUT ’3AF: IABL ES ■***■ 
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140 FOR T~1 TO P 

150 PRINT "WHOT IS NAME OF" 

160 PRINT "PLAYER #";T; 

170 INPUT Ft <I) 

ISO PRINT 

190 PR IN I " OH A T WERE " ; Ft- < T ) ; " ' S " 

200 PRINT "TOTAL AT BATS"; 

210 INPUT ABLI) 

220 PRINT 

230 PRINT "HGW MANY WALKS" 

240 PRINT "AND SACRIFICES"; 

250 INPUT WS(H 
260 PRINT 

270 PRINT "HOW MANY HI IS"; 

280 INPUT PUT; 

290 IF H ( I > + WS t I ) >AB ( T > THEN 300 ELBE 330 
300 PRINT 

310 PRINT "NUMBER TO HIGH" 

320 GOTO 220 
33o Call clear 

340 HEX I T 

350 call clear 

360 PRIN f "PL AV EP", "AVERAGE. ’ 

370 PRINT 

379 REM *** FIGURE AVERAGES *** 

380 FOR T-l TO 

390 B“H ( I .) / « AB f.< -WS < ! > ) 

399 REM *** ROUND OFF TO THREE DIGITS *** 

400 A- • 1NT(B*1000+.5 )/ 1000 
410 I A= TA+AB < 'T ) 

420 T H” TH+T U. I .) 

430 T W-TW+WS CT ) 

439 REIT *■ * * ERIIM'I" AVERAGES **# 

440 PRINT PT ( ! ) , T : i 
450 NEXT I 

460 PRINT 
4 70 I V-TH/ TA ! W > 

480 PR 1 IT I " TEAM AVERAGE^ " ; I NT < TV* 1000+, 5 > / 1000 
490 PRINT 

500 PRINT "PRESS <ENTER1 TO RUN REVERSE" 

510 INPUT NT 
520 GOTO 10 

Timex 1000 w/16K RAM Pack and Timex 1500 

1 REM *** TEAM BATTING AVERAGE TIMEX *** 

10 CLS 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 

30 PRINT 

40 PRINT "PRESS (ENTER) AFTER EACH REPLY." 

50 PRINT 

60 PRINT "HOW MANY PLAYERS?"; 

70 INPUT P 

79 REM *** DIMENSION ARRAYS *** 

80 DIM P*(P,15> 

90 DIM B(P) 

100 DIM W(P) 

110 DIM H(P) 

119 REM *** INPUT VARIABLES *** 

120 CLS 
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130 PRINT "PLEASE ANSWER THE QUESTIONS." 

140 PRINT "PRESS <ENTER) AFTER EACH REPLY." 

150 PRINT 

160 FOR T=1 TO P 

170 PRINT "WHAT IS THE NAME OF" 

180 PRINT "PLAYER NUMBER ";T;"7" 

190 INPUT P$(T) 

200 PRINT 

210 PRINT "WHAT WERE THE TOTAL" 

220 PRINT "AT BATS FOR ";P*<T);"?" 

230 INPUT B(T) 

240 PRINT 

250 PRINT "HOW MANY WALKS AND SACRIFICES?" 

260 INPUT W(T) 

270 PRINT 

280 PRINT "HOW MANY HITS?" 

290 INPUT H (T) 

300 IF H(T)+W(T)>B(T) THEN GOTO 240 
310 CLS 
320 NEXT T 

330 PRINT "AVERAGE"."PLAYER" 

340 PRINT 
350 LET Q=0 
360 LET Y=0 
370 LET U=0 
380 LET V=0 
390 LET A=0 

399 REM *** FIGURE AVERAGES *** 

400 FOR T=1 TO P 

410 LET G=H(T)/(B(T)-W(T) ) 

419 REM *** ROUND OFF TO THREE DIGITS *** 

420 LET A=INT <6*1000+.5)/1000 
430 LET Q=Q+B(T) 

440 LET Y=Y+H(T) 

450 LET U=U+W(T) 

459 REM *** PRINT AVERAGES *** 

460 PRINT A,P$(T) 

470 NEXT T 

480 PRINT 

490 LET V=Y/(Q-U) 

500 PRINT "TEAM AVERAGE® 5 " ; I NT (V*1000+. 5) / 1000 
510 PRINT 

520 PRINT "PRESS (ENTER) TO RUN AGAIN." 

530 INPUT C* 

540 RUN 

TRS-80 Color Computer 

1 REM *** TEAM BATTING AVERAGE TRS-COlQR *** 

10 CLS 

£0 PRINT "TEAM BATTING AVERAGE PROGRAM" 

30 PRINT 

40 PRINT "PRESS (ENTER) 'PiFTER EACH REPt_Y. " 

50 PRINT 

&0 PRINT "HOw MANY PLAYERS"; 

70 INPUT P 

79 REM *** DIMENSION ARRAYS *** 

80 DIM P$(P),AB(P),WS(P),H(P) 

89 REM *** INPUT VARIABLES *** 

90 CLS 
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100 PRINT "PRESS (ENTER) AFTER EACH REPLY." 

110 PRINT 

120 FOR T=1 TO P 

130 PRINT "WHAT IS THE NAME OF" 

140 PRINT "PLAYER #";T; 

150 INPUT P$ (T) 

160 PRINT 

170 PRINT "WHAT WERE ";P$(T);S" 

180 PRINT "TOTAL AT BATS"; 

190 INPUT AB(T) 

£00 PRINT 

£10 PRINT "HOW MANY WALKS" 

££0 PRINT "AND SACRIFICES"; 

£30 INPUT WS(T) 

£40 PRINT 

£50 PRINT "HOW MANY HITS"; 

£60 INPUT H(T) 

£70 IF H(T)+WS(T)> AB(T) THEN PRINT "NUMBER TOO HIGH":GOTO 170 
£80 CLS 
£90 NEXT T 

300 PRINT “AVERAGE","PLAYERS" 

310 PRINT 

319 REM *** FIGURE AVERAGES *** 

3£0 FOR T = 1 TO P 
330 B=H(T>/(AB(T)-WS(T)) 

339 REM *** ROUND OFF TO THREE DIGITS *** 

340 A=INT(B*1000+.5)/1000 
350 TA=TA-t-AB (T) 

360 TH=TH+K(T) 

370 TW=TW+WS(T) 

379 REM *** PRINT AVERAGES *** 

380 PRINT A,P$(T) 

390 NEXT 7 

400 PRINT 

410 TV=TH/(TA-TW) 

4£0 PRINT "TEAM AVERAS£=";INT <TV*1000+. 5)/l000 
430 PRINT 

440 PRINT "PRESS (ENTER) TO RUN AGAIN" 

449 REM *** WAIT ROUTINE *** 

450 INPUT R$ 

460 RUN 

TRS-80 Model III and Model 4 

1 REM *** TEAM BATTING AVERAGE TRS-90 MODELS 3 AND 4 *** 

10 CLS 

20 PRINT "TEAM BATTING AVERAGE PROGRAM" 

30 PRINT 

40 PRINT "PRESS (ENTER) AFTER EACH REPLY." 

50 PRINT 

60 PRINT "HOW MANY PLAYERS"; 

70 INPUT F' 

79 REM *** DIMENSION ARRAYS *** 

80 DIM P$(P) , AB(F') ,WS(P) ,H(P) 

89 REM *** INPUT VARIABLES *** 

90 CLS 

100 PRINT "PRESS (ENTER) AFTER EACH REPLY." 

110 PRINT 

120 FOR T=1 TO P 

130 PRINT "WHAT IS THE NAME OF PLAYER #";T; 
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150 INPUT P$(T) 

160 PRINT 

170 PRINT "WHAT WERE ";P$(T)5"’S TOTAL AT BATS"5 
190 INPUT AB(T) 

200 PRINT 

210 PRINT "HOW MANY WALKS AND SACRIFICES"; 

230 INPUT WS(T) 

240 PRINT 

250 PRINT "HOW MANY HITS"; 

260 INPUT H(T) 

270 IF H(T)+WS(T)>AB(T) THEN PRINT "NUMBER TOO HIGH":GOTO 170 
280 CLS 
290 NEXT T 

300 PRINT "AVERAGE", "PLAYER" 

310 PRINT 

319 REM *** FIGURE AVERAGES **** 

320 FOR T=1 TO P 

330 B=H(T)/(AB(T)—WS(T)) 

339 REM *** ROUND OFF TO THREE PLACES *** 

340 A=INT(B *1000+.5)/1000 
350 TA=TA+AB(T) 

360 TH-TH+H(T) 

370 TW=TW+WS(T) 

379 REM *** PRINT AVERAGES *** 

380 PRINT A,P*(T) 

390 NEXT T 

400 PRINT 

410 TV=TH/(TA-TW) 

420 PRINT "TEAM AVERAGE="5INT(TV*1000+.5)/1000 
430 PRINT 

440 PRINT "PRESS (ENTER) TO RUN AGAIN"; 

449 REM *** WAIT ROUTINE *** 

450 INPUT R* 

460 RUN 

VIC-20 

I REM *#■*■ l tAM BATTING AVG. VIC—20 ■*■#* 

HZi PRINT CHR$ (147) 

£3 PRINT "TEAM BATTING" 

30 PRINT "AVERAGE PROGRAM" 

40 PRINT 

50 PRINT "PRESS (RETURN) AFTER EACH REPLY." 

60 PRINT 

70 PRINT "HOW MANY PLAYERS"; 

80 INPUT P 

89 REM *** DIMENSION ARRAYS *** 

90 DIM P$(P),AB < P),WS(P),H(P) 

S3 REM *** INPUT VARIABl.ES *** 

100 PRINT CHR$(147) 

110 PRINT"PLEASE ANSWER" 
i£0 PRINT"THE QUESTION" 

130 PRINT 

140 PRINT"PRESS (RETURN) AFTER EACH REPLY." 

150 PRINT 

160 FOR T-1 TO P 

170 PRXNT"WHAT’S THE NAME OF" 

180 PRINT"PLAYER #"T 
190 INPUT P$(T) 

£00 PRINT 
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210 PRINT"WHAT WERE "P*(T>"’S" 

220 PRINT"TOTAL AT BATS" 

230 INPUT AB(T) 

240 PRINT 

250 PRINT "HOW MANY WALKS" 

260 PRINT "AND SACRIFICES" 

270 INPUT WS(T) 

280 PRINT 

290 PRINT "HOW MANY HITS" 

300 INPUT H(T) 

310 IF H(T)+WS <T)> AB(T) THEN PRINT"NUMBER TOO HIGH":GOTO 210 
320 PRINT CHR$ <147) 

330 NEXT T 

340 PRINT "AVERAGE PLAYER" 

350 PRINT 

359 REM *** FIGURE AVERAGES *** 

360 FOR T-l TO P 

370 B=H(T)/(AB <T)-WS (T)) 

379 REM *** ROUND OFF TO THREE DIGITS *** 

380 A=INT(B*1000+.5)/1000 
390 TA=TA+AB(T) 

400 TH-TH-t-H(T) 

410 TW=TW+WS(T) 

419 REM *** PRINT AVERAGES *** 

420 PRINT A,Ps(T) 

430 NEXT T 

440 PRINT 

450 TV=TH/(TA-TW) 

460 PRINT "TEAM AVERAGE="INT(TV*1000+. 5)/1000 
470 PRINT 

480 PRINT"PRESS (SHIFT) TO" 

490 PR INT"TO RUN AGAIN. " 

499 REM *** WAIT ROUTINE *** 

500 WAIT 653,1 
510 WAIT 653, 1, 1 
520 RUN 
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BONUS PROGRAM #9 

THE DRAWING PROGRAM 
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ADAM 

1 REM *** DRAWING ADAM *** 

10 GOTO 3000 

99 REM *** joystick routine *** 

100 IP j =0 THEN 200 

110 xi = 0 : yi = 0 : li = 0 

120 IP PDL(1) < 10 THEN yi = -1 : GOTO HO 

130 IP PDL(l) > 245 THEN yi = 1 

140 IP PDL(3) < 10 THEN xi = -1 : GOTO 160 

150 IP PDL(3) > 245 THEN xi = 1 

160 kol = INT(RND(l)*50) 

170 RETURN 

199 REM *** read keyboard routine *** 

200 xi = 0 : yi = 0 : li = 0 : kol = 0 
210 GET ke$ 

220 IP ke$ = "1" THEN kol = 1 : RETURN 

230 IP ke$ = "2" THEN END 

240 IP ke$ = kt$(li) THEN yi = yt(li): xi = xt(li): RETURN 

250 li = li+1: IP li < 8 THEN 240 

260 RETURN 

499 REM *** main drawing loop *** 

500 IP ro > 39 THEN ro = 0 
510 IP ro < 0 THEN ro = 39 
520 IP co > 39 THEN co = 0 
530 IP co < 0 THEN co = 39 

540 IP kol = 1 THEN COLOR = INT(RND(1)*15)+1 

550 PLOT co, ro 

560 GOSUB 100 

570 ro = ro+yi: co = co+xi 

580 GOTO 500 

2999 REM *** introduction *#* 

3000 TEXT: HOME 

3010 PRINT "Are you using a joystick?" 

3020 GET j$ 

3030 IP j$ = "Y" OR j$ = "y" THEN j - 1 : HOME: GOTO 3110 
3040 j = 0 
3050 HOME 

3060 PRINT "The direction keys are:" 

3070 PRINT 

3080 PRINT TAB(2); "u i 0 " 

3090 PRINT TAB(2); "j 1" 
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3100 PRINT TAB(2); "m , 

3110 PRINT 

3120 PRINT "Press any key to begin." 

3130 GET n$ 

3140 HOME: GR: COLOR = 1 

3150 IP j - 0 THEN VTAB 22: PRINT "Press '1' to change color" 
3160 IP j = 0 THEN PRINT "Press '2' to end" 

3169 REM *** initialize variables *** 

3170 DIM kt$(7), xt(7), yt(7) 

3130 FOR i =0 TO 7: READ kt$(i): NEXT 

3190 FOR i = 0 TO 7: READ xt(i): NEXT 

3200 FOR i =0 TO 7: READ yt(i): NEXT 

3210 GOTO 500 

5000 DATA ", ",".",l,o,i,u,j,m 
5010 DATA 0,1 ,1 ,1 ,0,-1 ,-1 ,-1 
5020 DATA 1 ,1 ,0 ,-1 ,-1 ,-1 ,0,1 

Apple II and Apple lie 


i 

F 

> L7 Ivj 

• S’ -P: 

DRAWIMG 

A 

ppi L L" 

.M. .*. 

-V. 

i 

0 

GOTO 

300 

o 





9 

9 

REM 

•ft- •£■ X- 

JOYGTI 

CK 

ROUT I 

ME 

•* * 

1 

00 

IF J 

■ sz 

0 THEN 

7{‘j{ M ] 




1 

10 

XI = 

0 V 

.!.' - 0L 

T 

X 

0 



.1. 

20 

IF 

PDL 

(1 ) < 

64 

THEN 

YI 

= - 1: GOTO 140 

I 

J. 

30 

IF 

F'DL. 

(1 ) > 

192 

THEN 

Y 

I = 1 

i. 

40 

I F 

PDL 

(0) 3 

64 

THEN 

X I 

= -• 1: GOTO 210 

i 

50 

IF 

PDL.. 

(0) > 

192 

THEN 

x 

I * 1; GOTO 210 

i 

99 

REM 

•«- •:*:■ 

* READ 

KEYBOARD 

R 

OUT I ME •*** 


200 

X 1 U ;; Y I = (J 7 L I — 

f"i 


210 

KE N PEEK < - 163 

84): POKE - 16368,0 


220 

IF KE 128 THEN 

RETURN 


230 

IF KE = 177 THEN 

KGL = KOL + 1 


240 

IF K 8 L > IS THEN 

KOI.... 0 


280 

IF CM Fit (KE ■■■■ 12 

8 ) - KTT (L. I > THEM YI 

y 

290 

LI = LI +• Is J F LI 

< 0 THEN 280 


300 

RETURN 



499 

REM *** MAIN DRA 

WINS LOOP *** 


500 

IF EO > 39 THEN R 

0 - 0 


510 

IF RO < 0 THEN RO 

::r: \ W 


520 

IF CO > 39 THEN C 

o -- 0 


530 

IF CO < 0 THEN CO 

CTf 


540 

COLOR— KGL 



V~i r :: ; f) 

PLOT CO,RO 



560 

GOSUB 100 



570 

RO = RO i- VI s CO = 

CO XI 



GOTO 500 



9999 

r:> lt ivt .v:. ..v. r k i t I::-- n T \! j 

CiKJN *** 


3000 

TEXT : HflMF 



3010 

PRINT ,! ARE. YOU 

USING A JOYSTICK CY 

/N) ? 

3070 

GET J T 



3030 

IF /!:*: r.= " \ " fH'F'M 

J = 1 » HOMF » GrjTfi : 

3 1 /•:,() 

3040 

IF ■■■■■ "M" THEN 

J -- o 


3050 

home 



;r 

PRINT "THE PIRFC 

1" Y nw !•: ’ j-’ : ' Y’ c~; A L " 1 « n 


3070 

P R T N T 



3000 

PRINT TAB ( 6 ) "Li 

I 0 " 


3090 

PRINT TAB < 6 )"J 

; 11 


31 00 

PRINT TAB < 6 ) "M 

: 


31 10 

PR I NT 
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3120 PRINT "PRESS ANY KEY TO BEGIN DRAWING." 
3130 GET NT- 
3150 HONE 

3159 REM *** INITIALIZE VARIABLES *** 


3160 

DIM H 

TT- (7) , XT (7) 

,YT(7) 

3170 

KOL = 

1 


31 BO 

FOR I 

= 0 TO 7: 

READ KT T ( I > ; NEXT- 

3190 

FOR I 

= 0 TO 7: 

READ XT ( I ): NEXT 

3200 

FOR I 

= 0 TO 7; 

READ YT ( I ) : NEXT- 

3219 

REM 

*** SCREEN 

DISPLAY ■*** 

3220 

GR 



3230 

FOR T 

= 1 TO 2 1 

PRINT ; NEXT T 

3240 

PRINT 

"PRESS '1* 

TO CHANGE COLOR" 

3260 

GOTO 

500 


5000 

DATA 

t> tt II 11 j 

i S a i L - 9 

0,1,U, J ,M 

5010 

DATA 

0,1 , 1 , 1 , o 

-i*.i*.1 

5020 

DATA 

1 1 , O , -" 1 , ~ 

1 , - 1,0,1 


Atari 

1 REM *** DRAWING ATARI *** 


9 RE 

M **■ 

* DI 

ME 

NS TON 

ARRAYS 

* -X- 

-ft- 

10 D 

IM R 

:£ ( 1 ) 

T 

* < n , 

J(8) i B(E 

\'> , 

XT(8),YT(8) 

20 GOTO 

3000 
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* * 
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REM 

-ft- -a- x- 

READ KE 

YBOARD F 

:0U 

TINE *** 

200 
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s Y I = 

0 !! 

LI -0 
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V-DIT 
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j JC.TKt O 
1 « f.... I H i \ 

ETURN 
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IF K~62 

THEN 3170 
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0 >3 THf 
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T p _p / 

LI) THEN YI --YT (LI) 

j A i '• X : 

/ I T \ . DpTI IL>h 
\ L_. x / » ilC. i >..Ji \i 

260 

LI==L I i- 'J 




270 

IF LI<S 

THEN 250 



'7* no 

RETURN 




a no 

x t r i 

REM **■* 

MAIN DRAWING LOOP 



500 

r p pn •! 

9 THEN RG=0 
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IF Rn<o 

THEN RO-19 
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9 THEN C0~Q 
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30 :i 0 

1 T NT 
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3060 

IF J 

II 

NO" 

OR J t~" 

N 

" THEM J 

-0 


3070 

PR I NT 

CHRf- ( 

125) 






3080 

PRINT 

II 

THE 

DRAW ING 


KEY 

S ARE 

II 


3090 

PRINT 









3100 

PR I NT 

! 1 


U I 


0" 




3110 

PRINT 

!i 


J 


L 




3120 

PR I NT 

11 


M , 


ii 




3130 

PRINT 









3140 

PR I NT 

li 

PRES 

S (RETL 

R 

N> 

TO BE 

GIN DR 

AWING. " 

3150 

INPUT 

J 

T 







3160 

PR I NT 

n 

ITRT ( 

125) 






3169 

REM 

INI 

TIALI7 F 


VAR 

I ABLE 

S **■* 


3170 

RESTOR 

C 

L-. 








31 £30 

KG=2 : C 

n 

-- 1 CD .. 

RO-10 






3190 

GRAPHI 

0 

S 3 s 

POKE 76 

4 

,25 

5 s POE 

E 752 s 

.tl. 

3199 

REM ** 


INI 

TIALIZE 


MOT 

ION A 

RRAYS 

a 

3200 

FOR 1 = 

o 

TO 

7 s READ 

Q 

;; J ( 

I) =Qs 

NI-):T I 


3210 

FOR :o 

o 

TO 

7 ; READ 

Q 

s B ( 

.[ ) ”.Q : 

NEXT I 


3220 

FOR I- 

0 

TO 

7 s READ 

Q 

; XT 

( I ) =Q 

s NEXT 

T 

.L 

3230 

FOR I* 

o 

TO 

7sREAD 

n 

: YT 

( I ) =Q 

: NEXT 

I 

y. *2 y C '- 

REM ** 

* 

SCR 

EFN TLX 

T 

■>i- •*- 

s- 



3240 

PR I NT 

i! 
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TO CL 

EAR SC 

REIEN " 

3250 

PR I NT 

11 
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3260 

GOTO 5 

0 
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Commodore 64 

1 REM *** DRAWING £4 *** 

10 GOTO 3000 

99 REM *** JOYSTICK ROUTINE *** 

100 IF J=0 THEN £00 
110 X I=0:YI=0:L1=0 

1£0 JV=PEEK(563£1) 

130 JV=15-(JVAND15) 

140 IF JV=JS(LI) THEN YI=YT(LI) :XI = XT(LI) :GOTO £10 

150 LI=LI+1:IF LI( 10 THEN 140 

199 REM *** READ KEYBOARD ROUTINE *** 

£00 X I=0:YI=0:LI=0 
£10 GET KE$ 

££0 IF KEY$=""THEN RETURN 

£30 IF KE$=CHR$(133) THEN GOSUB 400 

£40 IF KE$=CHR$(134) THEN KOL=KOL+l 

£50 IF KOL>15 THEN KOL=0 

£60 IF KE$=CHR$(135) THEN BO=BO+i 

£70 IF BO>15 THEN BQ=1 

£80 IF KE$=CHR$(136) THEN BA=BA+1 

£90 IF BA>15 THEN BA=1 

300 IF KE$=KT$(LI> THEN YI=YT(ul):XI=XT(LI):RETURN 
310 LI=LI+1:IF LI(8 THEN 300 
3£0 RETURN 

399 REM *** CHANGE CHARACTER *** 

400 CH=CH+1 

410 IF CH=1£8 THEN CH=£7 
4£0 IF CH=161 THEN CH=33 
430 IF CH=3£ THEN CH=160 
440 RETURN 
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499 REM *** MAIN DRAWING LOOP *** 

500 IF RQ> £1 THEN RO=0 
510 IF RO <0 THEN R0=£1 
5£0 IF CO> 39 THEN CO=0 
530 IF CO<0 THEN C0=39 

540 POKE 53£80,BO:POKE 53£81,BA 

550 POKE CB+CO+40*RO,KOL 

560 POKE SB+CO+40*RO,CH 

570 GOSUB 100 

5B0 RO=RO+YI:CO=CQ+XI 

590 GOTO 500 

£999 REM *** INTRODUCTION *** 

3000 PRINT CHR$ <147) 

3010 PRINT " ARE YOU USING 0 JOYSTICK <Y/N>?" 
30£0 GET J*:IF J*=""THEN 30£0 

3030 IF J$="Y" THEN J=1:PRINT CHR*(147):GOTO 3160 
3040 IF J*="N" THEN J=0 
3050 PRINT CHR*<147> 

3060 PRINT "THE DIRECTION KEYS ARE:" 

3070 PRINT 

3080 PRINT TAB(6)"U I 0" 

3090 PRINT TAB(6)"J L" 

3100 PRINT TAB(6)"M , 

3110 PRINT 

31£0 PRINT "PRESS (SHIFT) TO BEGIN DRAWING." 

3130 WAIT 653,1 
3140 WAIT 653, 1, 1 
3150 PRINT CHR$(147) 

3159 REM *** INITIALIZE VARIABLES *** 

3160 SB=10£4:CB=55£96:CO=19:RO=10 
3170 BA=1£:B0=9:CH=i60:POKE 650, 1£8 
3180 FOR 1=0 TO 7:READ KT*<I):NEXT 
3190 FOR I—0 TO 7:READ XT(I):NEXT 
3£00 FOR 1=0 TO 7:READ YT(I):NEXT 
3£10 FOR 1=0 TO 7:READ JS(I):NEXT 
3£19 REM *** LE SCREEN DISPLAY *** 

3££0 PRINT CHR$(19)CHR$(144) 

3£30 FOR T=1 TO £1:PRINT:NEXT T 

3£40 PRINT "FI CHARACTER F3 CHARACTER COLOR" 

3£50 PRINT "F5 BORDER COLOR F7 BACKGROUND COLOR" 

3£60 GOTO 500 

5000 DATA L, 0, I, U, J,M 

5010 DATA 0, 1, 1, 1,0,-1,-1,-1 
50£0 DATA 1, i, 0,-1,-1,-1,0, 1 
5030 DATA £,10,8,9,1,5,4,6 

IBM PC 

1.0 !•< i-f i >.• FROt'llNG PROGRAM IBM PC 

f' f j RE i v i 11 .1 HEMS .1 ON CODE ARRAYS •*** 

30 OFF 

40 i •• ! ! ; : v ti 

50 I ( ~' |. "■•■<> i I , 

60 KEt"“ IN!-: !:: i 

.0 1.1 ' ! HEN RE!'UP! I 


IF LI •!8 THEN 100 
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130 REM **••* CHANGE CHARACTER *** 
140 CH=CH+1 

130 IF CH>223 THEN CH=169 
160 IF CH~171 THEN CH=32 
170 IF CH=33 THEN CH»173 
180 RETURN 

190 REM •**•* MAIN DRAWING LOOP *** 
200 IF RG>23 THEN RO=l 
210 IF ROC 1 THEN R0=23 
220 IF CCK1 THEN CO-79 


o; : r,(*) 

IF C 

0 >79 THEN C0=1 


240 

i nr .a 

TE RQ,CO,0 


250 

PR IN 

T CHRT(CH);; 


260 

nn.qi m so 


2 7 0 

RO-R 

O-i-YI:: CCJ=CO-!-XI 


280 

GOTO 

200 


290 

REM 

* * * T N T R fj D U C T10 N * •* * 


300 

SC RE 

EN 0,0,0-WIDTH 80 



PR1N 

T "THE DRAWING KEYS 

ARE: " 

■ 5 30 

PR IN 

.... 


340 

PR IN 

T TAB(8 ) ;"U I 0" 


350 

PR IN 

T TAR i R ) !J . I [ 


T. AO 

| R r !\! 

T TAB(8);“M , 


370 

PR I N 

T 


300 

F‘;4 T N 

T "PRESS CENTERS TD 

BEGIN-. " 

390 

R:£"~ T 

NKEYT i IF R-&< '. CHRP C:! 3 

) THEM 390 

400 

C i Pi 



420 

R P- }*} 

*** I NIT IALI 7. E DI REG 

TION ARRAYS 

430 

FUR 

7. ■■■■■■■ 0 TO 7: READ KTT (I ) 

;NEXT I 

440 

FOR 

1=0 TG 7£ READ XT(I) : 

NEXT I 

450 

1 OUR' 

1=0 TD 7; READ YT ( I )Y 

NEXT I 

460 

REM 

**•* SCREEN DISPLAY * 

ir 

470 

L.OCA 

TE 24,27 


4 o t.j 

PR IN 

T "PRESS C TO CHANGE 

CHARACTER "; 

490 

LGCA 

TF 25 ?'7 


500 

PR IN 

T "PRESS S TO CLEAR 

SCREEN" ; 

510 

GOTO 

P 0 0 


1 000 

DAT 

A " , " , " ,. " , L , 0 , I , U , J , 

M 





1 < i:!. I; 

? A ! 

{ } ] 1 . ; .. ' ( .1 •— | , —« | - 7 


1020 

DAT 

. 'i J. t. J. . t I, .!. i 0. I, J. !. l| 1 



TI-99/4A 

1 REM *** DRAWING T199/4A •*** 

10 GOTO 540 

19 REM *** JOYSTICK ROUTINE *** 

20 IF J=0 THEN 140 
30 CALL. JOYST ( i v i'l,N) 

40 X I —0 

50 YI=0 


70 IF M=JI (LI ) THEN 80 ELSE 120 
80 IF N=KI(LI)THEN 90 ELSE 120 
90 X I--XT (LI) 

100 YI=• X Y (I... I) 

110 GOTO 170 

120 LI-LI El 

130 IF LI<8 THEN 70 
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140 XI=0 
150 YI=0 
160 L1=0 

169 REM *** READ KEYBOARD *** 

170 CALL KEY(3,K,P) 


180 

IF F‘=0 THEN 

190 

ELSE 200 

190 

IF J=0 THEN 

170 


200 

IF K—49 THEN 

210 

ELSE 250 

210 

KQ-K0+1 



220 

IF KO>6 THEN 

230 

ELSE 240 

230 

K.O : = 1 



240 

CH=C(KO) 



250 

IF K=50 THEN 

260 

ELSE 290 

260 

S=S+1 



270 

IF S>16 THEN 

280 

ELSE 290 

280 

S=3 



290 

IF K=51 THEN 

990 

ELSE 300 

300 

IF K==B (L.I) THEN 3 

10 ELSE 3 

310 

XI ~XT (L. I) 



320 

YI -- X Y (LI) 




330 

340 

350 

360 

370 

380 

390 

TOO 


RETURN 
LI -=L I +1 

IF J=1 THEN 390 
IF LI<8 THEN 300 
X I =0 
YI—0 
RETURN 

REM *** SET DIMENSIONS *** 


400 

IF RO>20 THEN 410 

EL 

SE 420 

410 

R0= 1 



420 

IF R0<1 THEN 430 

ELS 

E 440 

430 

RO—20 



440 

IF CO>32 THEN 450 

EL 

SE 460 

450 

CO-1 



460 

IF C0<1 THEN 470 

ELS 

E 480 

470 

Qfl — "T ' > 



480 

CALL SCREEN(S) 



490 

CALL HCHAR(RO,CO, 

CH, 

1 ) 

500 

GOSUB 20 



510 

RO-RO+XI 



er j-'-j 

CO—CO+YI 



530 

GOTO 400 



539 

R E M * * * IN T R 0 D U C T 

I ON 


540 

CALL CLEAR 



550 

PRINT "TYPE YOUR 

ANG 

PER" 

LITER) " 

560 

f-RiN i "THl.N PRESS 

(h. 

570 

PR i NT 



580 

PRINT "ARE YOU US 

INC 

A JOYSTICK" 

590 

INPUT 0$ 



A 0 0 

T r SEG4- < J:t-1 , i ) - " Y" 

THEN 610 ELS El 

6 :i o 

J-1 



620 

GOTO 700 



6 3 0 

J -0 



640 

CALL. CLEAR 



650 

PRINT "THE DIRECT 

ION 

KEYS ARE;" 

660 

PR I NT 



.A7(*> 

PRINT TAB(8);"U 

I 

0" 

.A P O 

PRINT TAB (8) ; " ,7 


1 15 

l~.. 

o r- } 

PRINT TAB(8);"M 

*; 

M 
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700 PRINT 

710 PRINT "PRESS (ENTER) TO BEGIN." 


720 

INPUT RT 

730 

RESTORE 

739 

REM 

*** DEFINE CHARACTERS 

740 

AT— " 

F F F F F F F F F F F F F F F F " 

750 

CALL 

CHAR(96,AT) 

760 

CALL 

CHAR ( 1. 04 , AT) 

770 

CALL 

CHAR(128 , AT) 

780 

CALL 

CHAR(136,AT) 

790 

C ALL- 

CHAR(144 , AT) 

800 

CALL 

CHAR <1 52 , AT) 

810 

CALL 

COLOR(9,2,25 

820 

CALL 

COLOR(10,3 , 3) 

830 

r.M i 

L-- n i_. L_ 

COLOR(13,5,5) 

840 

CALL 

COLOR(14,7,7 > 

850 

CALL- 

COLOR(15,11, 1 1 > 

860 

CALL. 

COLOR<16,16,16) 

870 

C0=1 

6 


880 R0=10 
890 CH--96 
900 £5=3 

909 REM *** LOAD JOYSTICK AND KEYBOARD 

910 FOR 1=0 TO 7 
920 READ XT Cl) 

930 READ XYCI) 

940 READ JI<I) 

950 RE.AD KHIS 
960 READ B (I) 

970 READ C(I) 

9GO NEXT I 

989 REM *** SCREEN DISPLAY *** 

990 CALL CLEAR 


j ooo 

PRINT "1 

TO CHANGE PAINT COLOR" 

1 010 

PRINT "2 

T 0 C H A N G E S C R E E N C 0!.... 0 R'' 

1020 

PRINT "3 

TO CLEAR SCREEN" 

1030 

R0= J. 0 


1040 

CO— i 6 


1050 

GOTO 400 


1 060 

DATA •-1, 

0 ,0,4,73,0 

1070 

DATA -1, 

1 f 4 ,, 4,79,96 

1 O R O 

DATA 0 ,1 

,, “T H (J / CD ,, 1 O ^ 

1090 

DATA i ,1 

,4,.4,46,128 

1100 

DATA 1,0 

,0,. 4,44,136 

1 110 

DATA 1,- 

1,-4,-4,77,144 

1 i 20 

DATA 0, 

1,. 4,0,74,152 

1 1 3 0 

DATA -1, 

~ 1 , ~4,4 s 85 , i.j 


Timex 1000 and 1500 

1 REM *** DRAWING TIMEX *** 

10 CLS 

20 PRINT "THE DRAWING KEYS ARE:" 

30 PRINT 

40 PRINT "5=LEFT 6=D0WN 7=UP B=RIGHT" 
50 PRINT 

60 PRINT "PRESS CENTER> TO BEGIN." 

70 LET K*=INKEY* 

80 IF K*="" THEN GOTO 70 
90 CLS 










_10 AWESOME PROGRAMS FROM K-POWER 

99 REM *** INITIALIZE VARIABLES *** 

100 LET R0=11 
110 LET C0“15 
120 LET CH=128 

129 REM *** SCREEN DISPLAY *** 

130 PRINT AT 20,3?"PRESS C TO CHANGE CHARACTER" 

140 PRINT AT 21,33"PRESS S TO CLEAR SCREEN" 

150 GOTO 500 

199 REM *** READ KEYBOARD *** 

200 LET K*=INKEY* 

210 IF K*="" THEN GOTO 200 
220 IF K*="S" THEN GOTO 90 
230 IF K*="C" THEN GOTO 400 
240 IF K*="5" THEN LET C0=C0-1 
250 IF K*="6" THEN LET R0=R0+1 
260 IF K*="7" THEN LET R0=R0-1 
270 IF K*="8" THEN LET C0=C0+1 
280 RETURN 

399 REM *** CHANGE CHARACTER *** 

400 LET CH=CH+1 
410 IF CH=139 THEN LET CH=0 
420 IF CH=1 THEN LET CH=128 
430 RETURN 

499 REM *** DRAWING LOOP *** 

500 IF CO>31 THEN LET C0=0 
510 IF COCO THEN LET C0=31 
520 IF RO>19 THEN LET R0=0 
530 IF ROCO THEN LET R0=19 
540 PRINT AT RO,CO;CHR* (CH) 

550 GOSUB 200 
560 GOTO 500 

TRS-80 Color Computer 

1 REM *** DRAWING TRS-80 COLOR *** 

10 GOTO 1000 

99 REM *** LE JOYSTICK ROUTINE *** 

100 H=JOYSTK(0) 

110 V=JQYSTK(1) 

1£0 IF H <15 THEN C0=C0-1:RETURN 
130 IF H> 45 THEN CO=CO+1:RETURN 
140 IF V <15 THEN C0=C0-3£:RETURN 
150 IF V> 45 THEN C0=C0+3£:RETURN 
199 REM *** LE KEYBOARD ROUTINE *** 

£00 LI=0 

£10 KE*=INKEY*:IF KE*="" THEN RETURN 
££0 IF KE*="C" THEN KO=KO+1 
£30 IF KQ> 8 THEN K0=1 
£40 IF KE$="Z" THEN GOSUB 40® 

£50 IF KE*="@" THEN CLS(RND(8)-1):GOTO 1180 
£60 IF KE$=KT$(LI) THEN CO=CO+YT(LI):RETURN 
£70 LI=L1+1 
£80 IF LI<8 THEN £60 
£90 GOTO £0® 

399 REM *** CHARACTER CHANGE *** 

40® CH=CH+1 

41® IF CH>15 THEN CH=® 

4£® RETURN 

499 REM *** MAIN DRAWING LOOP *** 

50® IF C0> 383 THEN C0=C0-3£*13 
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510 IF CO<0 THEN C0=C0+32*13 
520 SC=128+16*(KO-1)+CH 
530 PRINT0CO, CHR*(SC>; 

540 ON J GOSUB 100,200 
550 IF JOl THEN 580 
560 FOR D=1 TO 50 
570 NEXT D 
580 GOTO 500 

999 REM *** INTRODUCTION *** 

1000 CLS 

1010 PRINT "ARE YOU USING A JOYSTICK <Y/N>?" 

1020 J$=INKEY$:IF J*="" THEN 1020 
1030 IF J$=“Y" THEN J=l:GOTO 1140 
1040 IF J$<> "Y" THEN J=2 
1050 CLS 

1060 PRINT "THE DIRECTION KEYS ARE:" 

1070 PRINT 

1080 PRINT "U I 0" 

1090 PRINT "J L" 

1100 PRINT "M , 

1110 PRINT 

1120 PRINT "PRESS (ENTER) TO BEGIN." 

1130 INPUT R$ 

1139 REM *** INITIALIZE VARIABLES *** 

1140 CLS(0) 

1150 C0=239:CH=15:K0=3 

1160 FOR 1=0 TO 7:READ KT$(I):NEXT 

1170 FOR 1=0 TO 7:READ YT(I):NEXT 

1179 REM *** SCREEN DISPLAY *** 

1180 PRINTC-423, "C=CHANGE COLOR": 

1190 PRINT0455,"Z=CHANGE CHARACTER"; 

1200 PRINT0487,"@=CLEAR SCREEN"; 

1210 GOTO 500 

2000 DATA L, 0, I, U, J, M 

2010 DATA 32,33,1,-31,-32.-33,-1,31 

TRS-80 Model III and Model 4 

1 REM *** DRAWING TRS-80 MODELS 3 AND 4 CASS. AND MODEL 3 DISK BASIC ** 
10 GOTO 1000 

199 REM *** KEYBOARD ROUTINE *** 

200 LI=0 

210 KE*=INKEY$:IF KE*="" THEN RETURN 

240 IF KE$="Z" THEN GOSUB 400 

250 IF KE$="@" THEN CLS:GOTO 1170 

260 IF KE$=KT$(LI) THEN CO=CO+YT(LI):RETURN 

270 LI=LI+1 

280 IF LI<8 THEN 260 

290 RETURN 

399 REM *** CHARACTER CHANGE *** 

400 CH=CH+1 

410 IF CH>255 THEN CH=129 
430 RETURN 

499 REM *** MAIN DRAWING LOOP *** 

500 IF CO>832 THEN C0=C0-64*14 
510 IF COCO THEN C0=C0+64*14 
530 PR INT@CO,CHR$(CH); 

540 GOSUB 200 
560 FOR D=1 TO 50 
570 NEXT D 


132 




10 AWESOME PROGRAMS FROM K-POWER 


580 GOTO 500 

999 REM *** INTRODUCTION *** 

1000 CLS 

1060 PRINT "THE DIRECTION KEYS ARE:" 

1070 PRINT 

1080 PRINT TAB(8)5"U I 0" 

1090 PRINT TAB(8)?" J L" 

1100 PRINT TAB(8)5"M , 

1110 PRINT 

1120 PRINT "PRESS (ENTER) TO BEGIN."? 

1130 INPUT R* 

1140 CLS 

1149 REM *** INITIALIZE VARIABLES AND ARRAYS *** 

1150 FOR 1=0 TO 7:READ KT$(I):NEXT I 
1160 FOR 1=0 TO 7:READ YT(I):NEXT I 
1170 C0=478:CH=191 

1180 F'RINT©965, "Z=CHANGE CHARACTER"? 

1190 PRINT©1000,"©=CLEAR SCREEN"? 

1200 POKE 16526,105 
1210 POKE 16527,0 
1220 PRINT CHR$(21) 

1230 GOTO 500 

2000 DATA L,0,I,U,J , M 

2010 DATA 64,65,1,-63,-64,-65,-1,63 

VIC-20 

1 REM *** DRAWING VIC-20 *** 

10 GOTO 3000 

99 REM **•* JOYSTICK ROUTINE *** 

100 IF J=0 THEN £00 
110 30KE 37154,127 

120 XT’/.=PEEK (37152) AND 128 
130 POKE 37154,255 

140 XT"/.= XT’/. OR ( PEEK (37137) AND127) 

150 X J.=5GN (XT-/.AND12Q) -SGN (XT-/.AND16) 

160 YI=SGN (X7Y-ANDS) -SGN ( XTSAND4) 

170 GOTO 210 

199 REM *** READ KEYBOARD ROUTINE *** 

200 X 1=0 : YI =0 : i_I=0 
210 GET KE$ 

220 IF KEY$=""THEN RETURN 

230 IF KE$=CHR$(133) THEN GOSUB 400 

240 IF KE$=CHR$(134) THEN K0L=K0L+1 

250 IF KOL> 8 THEN KOL=0 

260 IF KE*=CHR$(135) THEN BA=BA+16 

270 IF BA)125 THEN BA=13 

280 IF J=1 THEN RETURN 

£90 IF KE$=KT$(LI) THEN YI=YT(LI):XI=XT(LI):RETURN 
300 LI=LI+1:IF LI(8 THEN £90 
310 RETURN 

393 REM *** CHANGE CHARACTER *** 

400 CH=Ch+i 

410 IF CH=i£8 THEN CH=£7 
420 IF CH=IS1 THEN CH=33 
430 IF CH=32 THEN CH=160 
440 RETURN 

499 REM *** MAIN DRAWING LOOP *** 

500 IF R0>18 THEN RO=0 
510 IF RQ(0 THEN R0=18 
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520 IF C0> £2 THEN CO=0 
530 IF CO<0 THEN C0=2£ 

540 POKE 36879,BA 

550 POKE CB+C0+2£*R0,KOL 

560 POKE SB+C0+£2*R0,CH 

570 GOSUB 100 

580 R0=RQ-VI:C0=C0—XI 

590 GOTO 500 

£999 REM *** INTRODUCTION *** 

3000 PRINT CHR$(147) 

3010 PRINT "USING A JOYSTICK (Y/N)" 

3020 GET J$;IF J*=""THEN 30£0 

3030 IF J$="Y" THEN J=1:PRINT CHR$(147):GOTO 3160 
3040 IF J$="N" THEN J=0 
3050 PRINT CHR$<147) 

3060 PRINT "THE DIRECTION KEYS ARE" 

3070 PRINT 

3080 PRINT TAB(8)"U I 0" 

3090 PRINT TAB(8)"J L" 

3100 PRINT TAB(8)"M , 

3110 PRINT 

3120 PRINT "PRESS (SHIFT) TO BEGIN" 

3130 WAIT 653,1 
3i40 WAIT 653, 1, 1 
3150 PRINT CHR$(147) 

3lCjS RhM *** INI’ IALIZE Y'fiRI ABl_h.3 
3160 SB=7680:CB=38400:CO=11:RO=10 
3170 SA=£9:CH=160:POKE 650,1£8 
3180 FOR 1=0 TO 7:READ KT$(I):NEXT 
3190 FOR 1=0 TO 7:READ XT(I):NEXT 
3£00 FOR 1=0 TO 7:READ YT(I):NEXT 
3£09 REM *** SCREEN DISPLAY *** 

3210 PRINT chr $<i44)chR*<19) 

3££0 FOR T=1 TO ££:PRINT:NEXT T 
3230 PRINT "FI CHANGE CHARACTER" 

3240 PRINT 11 F3 CHARACTER COLOR 
3250 PRINT "F5 BACKGROUND COLOR" 

3£60 GOTO 500 
4000 RETURN 

5000 DATA I, U, J, M, L, 0 

5010 DATA 0, 1, 1, 1,0,-1,-1,-1 
5020 DATA 1,1,0,-1,-1,-1,0,1 
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BONUS PROGRAM #10 

MUSIC RECORDER 

The MUSIC RECORDER changes your computer into a computer 
tape recorder . By pressi ng t.he computer keys p i c:tured 
under notes on the screen, you make up songs. When you'i 
rsady to record , press the key p i ctured nex t to START 
RECORDING, enter the notes of the song, then press the in 
next to PLAY BACK SONG, to hear the tune. When you're 
tired of hearing a tune, press the key pictured next to 
ERASE SONG MEMORY' to qet rid of the song. Up to 100 not! 
can stored at one time in the recorder. If the number 
exceeds 100, the note memory is erased and set at one 
a g a i n » 


Apple II and Apple lie 


•1 c< 

x . > 

:EM 



MU 

IP T j 

ld 

GOTO 

A O 




1 R 

RFM 

■ j|- -s- 

¥: 

ID 

i 

! 1 /\ ' 
ri 

' 0 

POKE 


L 

r\ i 

i.' 

T) 

30 

POKE 

*•7 

' 

H 

D ( 

T> 

40 

POKE 

O 

5 

F 

(T 

') 

50 

n/\ j * 

w ni.... 

so 

u 



60 

i F F 




T 

70 

IF C 


9 

O 

TH! 

90 N 

!H < C) 


i 



90 C 

; H 

.J.. 

1 



ioo 

RET 

URN 




1.99 

REM 

K- 

* 

.M. 

RE- 

200 

P 

C; 




*p 'j ( \ 

FOR 

r:.‘ 

t..' 


‘I 

.1. 

']"! 

220 

*r_^ 

MIJ ( 

t:> 

% 


230 

0 rj co 

i ■ r:.< 


o 


240 

NEXT B 




p 9 o 

REM 

M. 

* 

«• 

prr. 

TOO 


j. / 




310 

GET 

i\FH r - 




3 3 0 

r nr 

A [ 

Mi- 

5 y -v 

= 

1 •• 
t •• 

T'j : ;j;: 

*r T 

1 “ 

T .... 


■J 


.34 0 

rjr 

T 

1 


.... 

•i 

350 

t j.r 

NT 


11 

B" 

.6 r”» 

T f- 

NT 

:s 

! 1 

R !! 

370 

.1. 

N & 

= 

! 1 

y h 

n o 

GOTO 3 

o 

i j 


9 o 

REM 

■?r 

* 

•x 

ER| 

400 

FOR 

X 



i r i 


RETURN 


i\(pT'r: RniJT ThJF -■ 

!*W"l 


4 1 0 NH<X> = 0 
420 NEXT X 

440 GOTO 300 

599 REM *** INITIALIZE VARIABLES *** 

/, (') jjpivip- .. on; 1 7,ip 

610 X a 17 * c 1 

620 DIM HD<X > ,LD ( X) ,F(X5 
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630 DIh KB$ (X ) , NH (105) 

640 FOR X ^ O TO 17 
650 READ F ( X) , HD < X) , LD ( X ) 

660 READ KBT(X) 

670 NEXT X 

679 RFM **•* SCREEN DISPLAY *■** 


680 

FOR 

CO 

— ”7 

■— / 

TO 1 

6 STEP 2 

690 

FOR 

RO 

ZT. r ? 

TO 1 

9 

700 

C 1 = 

11 s 

C2 

= 16 r, 

GGSUB 740 

710 

Cl = 

16: 

C2 

;t « 

BOSUB 740 

720 

C1 

■ r VT; . 

C2 

OQ » 

'k- J a 

60SUB 740 

730 

n 

t—*■ 

1! 

28: 

f' 

~ 29: 

GOSUB 740 

740 

FOR 

CO 

= 'r. 

1 TO 

C2 STEP 2 

750 

FOR 

RO 

..... '-T 

TO 1 



760 HTAB CO: VTAB RO 
770 INVERSE : PRINT 11 
780 NORMAL. ; PRINT " !t ; 

790 NEXT RO: NEXT CD: RETURN 

800 PRINT : HTAB 11s INVERSE s PRINT SPC 

810 NORMAL : HTAB 11: VTAB 1 

320 PR I NT " C#D#EF#Gtt A#BC#D#EP'" 


TO BEGIN RECORDING 


VTAB 

1 5 

PR I NT 

TAB C 

PRINT 


PRINT 
PR I NT 

TAB ( 

PRINT 

PRINT 

TAB < 

PR I NT 

TAB ( 

REM 

pQj. 

FOR X 

= sou 

READ 

H 

POKE 

y a 

NEXT 

X 

GOTO 

300 


[ OOO DATA ( O p Q | r-; , C44 , 2,1 UF(■) ' 

!. 010 DATA 130 ‘ 1,27 , R , 123,, 1,40,5, 116 * 1 ’ 55 
i. 020 DATA 96, 1, 110,7 v 92,1 , 130 U,87 v 1, 155 . 
i. 030 DATA 72,1 ,225,0,68,1 ,252 , P , 65,2,30 , i 
[ 040 DATA 230,7,166,6,164,8,173,43,192,21 
!. 050 DATA 234 234,136,208,250,202,208,241 
L060 DATA 198 v 7,208,238,96 

Mari 

L REM *** MUSIC RECORDER ATARI *** 

[ 0 GOTO 600 

;>9 REM #•** PLAY NOTE; ROUTINE *4* 

LOO IF NV (T> ™0 THEN 300 
L 10 COLOR 1: Pl.OT T , 7 

[30 SOUND 0,NV( !"> ,14:, 15 
1.40 FOR DIJR" 1 TO D+50:NEXT DUR 
L 50 50UND 0,0 v O , 0 s C00R 0 
L 60 PLOT T ,, 7 

[ 7 o i j - F < 1 Til E N P 01< E 764,255R E T U R N 
[80 IF 099 THEN 400 
l 9 0 N H ( C) - ‘ f:: C “••• C +1: R E T!' R M 
[99 REM *** RECORD NOTE ROUTINE *** 
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210 FOR B=1 TO 0-1 
220 T--N! I (B) 

230 GOSUB 100 
240 NEXT B 

299 REM *** READ KEYBOARD ROUTINE *** 


300 






310 

K=PE 

EK < 764) 




370 

IF !< 

= : 255 THEN 310 




330 

IF K 

=B(T) THEM 60S 

IJB 

•1 , 
J. ' 

00 

340 

T —T— 

1 




350 

IF T 

>=9 THEN 320 




36>0 

IF K 

-33 THEN F-l 




370 

r r.r is 

j. I K 

~'p7', THFN 700 




380 

IF l< 

=22 THEN 400 




390 

POKE 

764,255:GOTO 

30 C 

) 


400 

FOR 

X-~0 TO 100 




410 

NH (X 

) =0 




420 

NEXT 

X 




430 

c-i 





440 

GOTO 

300 




599 

REM 

* * * INITIA L. I 2 [I 

v't' 

\ i 

!i \ 

I ft 131. E S * * 

600 

X--29 

: C=1 




609 

REM 

*** DIMENSION 

AIR I- 

HA 

YS *•** 

A1 0 

DIM 

Mv ( X ) i 8 ( X ) j Ni i ( 

10 ( 

) ) 


620 

POKE 

"7t"n 
/ .. j 




630 

GRAP 

HICS 3 




640 

PR IN 

T CHR$(125) 




650 

FOR 

X i1 TO 28 




660 

READ 

Q: NV ( X ) =Q i REA 

t*, r 

.'} j 

& ( X 5 ::::: Q 

670 

NEXT 

X 




/ ,70 

U / t 

REM 





630 

rmp 
} 1 \ 

2r*‘j i "j "q op) 




690 

!::■ r: a. n 
j \unu 

RO, KO 




700 

COL..OR KO 




710 

PLOT 

CO, 8 




720 

DRAW 

TG CO,RO 




730 

NEXT 

CO 




740 

PR IN 

T 11 07 

W3C 

—\ 

5T6Y7UI9C0F' " 

750 

PR IN 

T "SPACE BAR T 

Q I 

3E 

GIN RECORDING" 

760 

r:« rr» r v -? 

i i \ .1. 1 M 

r * 11 7 "j"n 

{■■ i_ 

4Y 

BACK SONG" 


Commodore 64 

1 REM •*** MUSIC RECORDER £4 #*•*• 
10 GOTO £00 

19 REM *** PLAY NDTE ROUTINE *** 

20 POKE CB-t-T+9+40* i , l 
30 POKE SQU+24,15 

40 POKE SQU+5,84 
50 POKE SOU+6,64 
60 POKE SOU+4,33 
70 POKE SQU-t-1, HF (T) 

80 POKE SOU,LF(T) 
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90 FOR DUR=1 TO 75 

100 NEXT DUR 

110 POKE CB+T+9+40*1,0 

120 IF F <>1 THEN RETURN 

130 POKE S+24,0 

140 POKE SOU, 0 

150 POKE SOU+1,0 

160 IF 0 99 THEN 400 

170 NH(C)=T 

180 C=C+1 

190 RETURN 

199 REM *** RECORD NOTE ROUTINE *** 

£00 F=0 

£10 FOR B=1 TO C-l 
£20 T=NH(B) 

£30 GOSUB 20 
240 NEXT B 

£99 REM *** READ KEYBOARD ROUTINE *** 

300 T=19:POKE S+24, 0:POKE SOU, 0:POKE SOU+1,0 
310 GET N$:IF N$=""THEN 300 
320 IF N$=KB*<T) THEN GOSUB £0 
330 T=T-1 

340 IF T>1 THEN 320 

350 IF N$=CHR$(133) THEN F=1 

360 IF N$=CHR$(134) THEN £00 

370 IF N$=CHR$(135) THEN 400 

380 IF N$=CHR$(136) THEN 500 

390 GOTO 300 

399 REM *** ERASE NOTE ROUTINE *** 

400 FOR X=0 TO 100 
410 NH(X)=0 

420 NEXT X 
430 C=1 
440 GOTO 300 

499 REM *** CHANGE SCREEN COLOR *** 

500 S=S+1 

510 IF S=19 THEN S=£ 

520 POKE SC, SCO) 

530 POKE BC,BC(S) 

540 GOTO 300 

599 REM *** INITIALIZE VARIABLES *** 

600 CB=55296:SB=1024:S0U=54£7£ 

610 X=££:C=1:S=£:SC=53281:BC=53£80 

619 REM *** DIMINSION ARRAYS *** 

620 DIM HF(X),LF(X),C(X),Y(X),SC(X) 

630 DIM KB$(X>,BCCX),NH(105) 

639 REM *** SCREEN DISPLAY *** 

640 PRINT CHR$(147> 

650 POKE SC,12:POKE BC, 11 

660 FOR X=£ TO 19 

670 READ HF(X),LF(X),C(X),Y(X) 

680 READ KB$(X),SC(X),BC(X) 

690 NEXT X 

700 FOR C0=2 TO 19 

710 FOR R0=3 TO YCC0)+1 

720 POKE CB+CO+9+40*RO,C(CO) 

730 POKE SB+CO+9+40+RO,160 
740 NEXT RO 
750 NEXT CO 
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000 PRINT CHR$(19)CHR$(144) 

010 PRINT 

0£0 PRINT TPB(11)"C#D#EF#G#P#BC#D#EF" 

030 FOR X=1 TO 12 
040 PRINT 
050 NEXT X 

060 PRINTTPB (11) "W3E4RT6Y7U0IO0P+I?*" 

070 PRINT 
080 PRINT 

090 PRINTTPB(9)"FI TO BEGIN RECORDING" 

900 PRINT 

910 PRINTTPB(9)"F3 TO PLPY BPCK SONG" 

920 PRINT 

930 PRINTTPB(9)"F5 TO ERPSE SONG MEMORY" 

940 PRINT 

950 PRINTTPB(9)"F7 TO CHPNGE SCREEN COLORS" 

960 GOTO 300 

1000 DPTP 16, 195, 1, 13, W, 15, 13, 17, 195, 0, 11,3, 9, 11 
1010 DPTP 18,209,8, 1*3, E, 11, 12, 19,239,0, 11,4, 11, 13 
1020 DPTP £1,31,2, 13, R, 10, 15,22, 96, 5, 13, T, 11, 15 
1030 DPTP 23, 181,0, 11,6, 9, 11,25, 30, 6, 13, Y, 15, 9 
1040 DPTP 26, 156, 0, 11,7, 9, 14, £8, 49, 4, 13, U, 14, 11 
1050 DPTP £9,223,0,11,8,12,15,31,165,3,13,1,10,10 
1060 DPTP 33, 135, 1, 13, 0, 9, 13, 35, 134, 0, 1 1,0, 10, 12 
1070 DPTP 37, 162, 8, 13, P, 12, 14, 39, 223, 0, 11,+, 11, 15 
1080 DPTP 42, 62, 2, 13, @, 9, 15, 44, 193, 5, 13, *, 14, 11 

IBM PC 

i HTj-i sh MUSK.. RECORDER IBM.PC *** 

:! U EE Y OF F 
20 GO "I (J 60 O 

99 REM *** PLAY' NOTE ROUTINE *** 

TOO IF NV< I )~0 I HEN 300 

1.1.0 1 rn I E |... ! SPRINT CHET < 2 ) ; 

120 FOR i)EI...Av-U. TO 10: NEXT DELAY 

130 SOUND MO<!;,5 

140 LOCATE 4 , 1 

150 PRINT CHET(32I: 

160 IP FOl THEN RETURN 

170 IF 099 THEM 400 

179 REM *** RE.CFRD NOTE **■* 

ISO NH(C)"1 
190 C“C+1 s RE "! URN 
200 F 0 

210 PGR B •• 1 ! 0 C- l 

220 I ■■•■NH LB; 

230 GOSUB 100 
240 NEXT B 

299 REM *•#* RE.Al) KEYBOARD ROUT I ME *•**• 

3c.»0 ! - '!8 

310 Noll !!- EOT : IF F!T : ~- " " THEN 300 
320 IF NT -F FLf •' I ; "(HEN GQSUB TOO 
330 I . 1 

340 IF I .>30 THEM 32',.' 

350 IF MHUIHFM 32) THEN F = 1 
360 IF' HI'"" Z" ! HEN 200 

370 IF NT """ K" T HEN TOO 
380 GOTO 300 

399 REM **■* ERASE NOTES ROUTINE *** 
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400 FOR X~0 TO 100 

410 NH(X)=0 

420 NEXT X 

430 C~1 

440 GOTO 300 

599 REM *** INITIALIZE VARIABLES *** 

600 X~49: C-.1: SCREEN 0 , O , O: WIDTH SO 
610 DIM NV(X),KBf(X),NH<100 ) 

620 CLS 

629 REM >:•**• LOAD NOTE AND KEYBOARD ARRAYS *** 

630 FOR X~31 TO 48 
640 READ NV < X ) , KB'T ( X ) 

650 NEXT X 

659 REM *■** SCREEN DISPLAY **# 

660 FOR CO~31 TO 48 
670 READ V , CH 

680 FOR RO-5 TO v 
6 90 L 0 C A r E R 0 , C 0,0 
700 PRINT CHRT(CH); 

710 NEXT RO 
720 NEXT CO 
730 LOCATE 5,31 

740 PRINT "C#D#EF#G#A#BCttD#EF"; 

750 LOCATE 19,31 


760 PRINT " 

Q2N3ER5 

1 6 r 7019 

OOF' 1 ; 





770 LOCATE 

.2 1 • 2. tf 







780 PRINT M 

SPACE B 

.1- TO B 

EG IN F 

ECORD 




790 LOGA IE 

2. • 3 i 2 & 







800 PRINT " 

PRESS Z 

TO PL.A 

/BACK 

SONG"; 




8.10 LOCATE 

25 ,26 







820 PRINT " 

PRESS X 

I (..! ERA 

SE SONG MEMOF 

Y 

■. n 


p.y.o git i n 

i i 







:i.ooo Data 

62,0 , 2 7' 

7, 2 ,294 

, W 311 

"r,f) 

E 

, 349, R 


1010 DATA 3 

7 0 „ 5 ., 39 

t a i c“. 

, 6 ,4 4 C 

y 4 4 . 

■f ■ « > -j cj .j 

7 

„ 4 9 T , U 

cr •• T T 

4 '•Ji 

1020 DA 1 Pi 5 

54,9,58 

/ u i, Cz* 2. 

H 0 it 65? 

,P,698, 

r 

t. 



1030 DATA 1 

7,1 7 8 ,1 

•7 7 J 1 

» .i .i. / H x 

7,176, 

1 4,219 , 

i 

7,178, 

3. 7,1 7 6 

1040 data i 

4,2 i 9,1 

7 , 1 73 , J. 

4,219 , 

1 7 , I 76 , 

i 

4,219 , 

17,178 

1050 DATA 1 

7 , 1 7 6 , .1 

4,2 J 9,1 

7 , J 78 , 

.1.4,219, 

i 

/ , | .1. / 6 > .. 

1?,178 


TI-99/4A 

i REM *** MUSIC RECORDER I.I99/4A *** 

9 REM *** DIMENSION i 10 I E. ARRAYS **■*. 

I'...) DI IT H • 100 ) Q. < 26 ) , 7 (26) , R (26) , CH (1 75 > 
20 GO I 0 350 

29 RETT **•#• PLAY NOTE ROUTINE.' *•■** 

30 IF V >: I -■<! THEN .ISO 
To CALI. HCHAR <3, I ,88; 

50 CALL SOUND \ 100,V< T) .0) 

60 CALL HCHAR T .:!■, I , 331 

69 REM *** RECORD NOTE *** 

70 IF FOl THEN 80 ELSE 90 
80 RET URN 

90 IF C>99 THEN 300 
100 H<C> =T 

110 c-c+i 

120 RETURN 
130 F•••>,' 

.1.40 FOR B-.I. TO C-.1 
150 T"H(B) 
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160 

GOSUB 30 


170 

NEXT B 


180 

T : ~25 


.189 

REM *** READ KEYBOARD *** 


190 

CALL KEY(3,K,P) 


200 

IF P=0 THEN 190 


210 

IF K=Q<T)THEN 220 ELSE 230 


220 

GOSUB 30 


230 

T~T -1 


240 

IF T>6 THEN 200 


250 

IF K~32 THEN 260 ELSE 270 


260 

F -1 


2 70 

IF K---83 THEN 130 


280 

IF K-68 THEN 300 


290 

GOTO 180 


299 

REM *** ERASE NOTES *** 


300 

FOR X~0 TO 100 


310 

H < X ) ~-0 


320 

NEXT X 


330 

c-i 


340 

GOTO 180 


349 

REM ***• DEFINE CHARACTERS 


350 

" FF FF FFF F F F F'FFFF F " 


360 

CALL CL EAR 


370 

B$-"2424FF2424FF 2424 " 


380 

C4~"00C3241810101010" 


390 

X.*•:! 6 


400 

c --1 


410 

CAL L CHAR (88, ii'$ ) 


420 

Call char *. .-•3 , tv£ > 


430 

FOR X=8 TO 25 


439 

REM LOAD ARRAYS *** 


440 

READ V< X > ,0 {X) ,CH<X) ,R<X ) 


450 

L rL.L. L.'HmR { LJH \ X ) * i i i ) 


460 

NEXT x 


470 

CALL CHAR< 96•B T ) 


480 

CALL CHAR<42,C*> 


490 

FOR X-=8 TO 16 


50 0 

READ F,B 


510 

CALL COLOR i X,F.B) 


Siu 

NEXT X 


530 

CALL COLOR (1,3,3.’ 


539 

R E M * * * S CR E ET-! D .1S PL A v * * * 


540 

CALI... CLEAR 


550 

ERIN 1 TAB (6 ) ; "i..'..#l.)*EF#6#A#BC#D#EF " 


560 

FOR < ■-1 10 13 


5 70 

PRINT 


580 

NEXT a 


590 

PRIN ! f AB (6.) ; " 02 W 3ER51‘6 v. 01900P 1. " 


600 

PR 1N 1 


610 

PR TNT 


620 

PRINT " PRESS SPACEBAR TO RECORD" 


630 

PR J I t! 


640 

PRINT " PRESS S TO PLAY BACK SONG" 


6 fi0 

ER l. I I l 


•66 ! > 

PRINT " PRESS 0 TO ERASE SONG" 


6 7 0 

FOR v--*8 ID 25 


6 8<_i 

Cm! . i. {aR ( ••( , X , Cl 1'. X i E <: X > ) 


6 7u 

NE.X'T a 
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700 GOTO ISO 

7 10 DA T'A 262,81 , i 04,11,27 7,50,9 7,9,294,8 7,112,11 
720 DATA 311,51,97,9,330,6?,120,11 
730 DA T'A 349,82,128,11,3 70,53,97,9,392,84,136,1J. 
740 DA T A 415,54,97,9,440,89,144,11,466.55,97,9 
750 DA T'A 494,85,1 52,11,523,7 3,104,11,554,57,97,9 


760 DATA 587 


’9,112,11.622,48,97,9,659,80,120,11 


7 7 0 D f 11 A 698,4 7 , 1 2S , 1 1 

780 DA T A 16,16,2,1,5,5,7,7,8,8,11,11,14,14,15,15,1O 


TRS-80 Color Computer 

1 REM *** MUSIC RECORDER TRS-80 COLOR *** 
10 GOTO 600 

99 REM *** PLAY NOTE ROUTINE *** 

100 IF NV(T)=0 THEN 300 
110 PRINT @T,CHR$(143+16); 

1£0 SOUND NV(T),3 

130 PRINT @ T, CHR$ (143) ; 

140 PRINT @ T,CV$ (T) ; 

150 IF F <>1 THEN RETURN 
160 IF 0 99 THEN 400 
170 NH(C)=T 
180 C=C+1 
190 RETURN 

199 REM *** RECORD NOTE ROUTINE *** 

£00 F=0 

£10 FOR B=1 TO C—1 
££0 T=NH(B) 

£30 GOSUB 100 
£40 NEXT B 

£99 REM *** READ KEYBOARD ROUTINE *** 

300 T=£4 

310 N$=INKEY*:IF N$=""THEN 300 
3£0 IF N*=KB$(T> THEN GOSUB 100 
330 T=T-1 

340 IF T> 5 THEN 320 
350 IF N$=CHR$<3£) THEN F=1 
360 IF N$="Z” THEN £00 
370 IF N*="X" THEN 400 
380 GOTO 300 

399 REM *** ERASE NOTE ROUTINE *** 

400 FOR X=0 TO 100 
410 NH(X)=0 

4£0 NEXT X 
430 C=1 
440 GOTO 300 

599 REM *** INITIALIZE VARIABLES *** 

600 X=£5:C=1 

609 REM *** DIMENSION ARRAYS *** 

610 DIM CV$(X),KB$(X),NH(100), NV(X) 

620 CLS 

630 FOR X=7 TO 24 

640 READ NV(X),CV*(X),KB$(X> 

650 NEXT X 

699 REM *** SCREEN DISPLAY *** 

700 FOR C0=7 TO £4 
710 PRINT 0CO,CV$<CO); 

720 PRINT 0CO+224, KB*(CO); 

730 NEXT CO 
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740 READ X,Y, KO 
750 IF KO=0 THEN A=128 
760 IF KO <> 0 THEN A=143 
770 IF X=-1 THEN 820 
780 FOR RO=X TO Y STEP 32 
790 PRINT0RO,CHR$(A+KO); 

800 NEXT RQ 
810 GOTO 740 

820 PRINT0321,"SPACE BAR TO BEGIN RECORDING"; 

830 PRINT0385,"PRESS Z TO PLAYBACK SONG"; 

840 PRINTG449,"PRESS X TO ERASE SONG MEMORY": 

850 GOTO 300 

1000 DATA 89, C, Q, 99, #, 2, 108, D, W, 117. #, 3, 125, E, E 
1010 DATA 133, F, R, 140, #,5, 147, G, T, 153, #, 6, 159, A, Y 
1020 DATA 165, #, 7, 170, B, U, 176, C, I, 180, #, 9 
1030 DATA 185, D, 0, 189, #,0,193, E, P, 197, F, @ 

1040 DATA 39,199,16,40,168,0,41,201,32 
1050 DATA 42,170.0,43,203,48,44,204,64 
1060 DATA 45,173,0,46,206,80,47,175,0 
1070 DATA 48,208,96,49,177,0,50,210,112 
1080 DATA 51,211,16,52,180,0,53,213,32 
1090 DATA 54,182,0,55,215,48,56,216,64 
1100 DATA -1,-1,-1,-1,-1,-1 

VIC-20 

1 REM *** MUSIC RECORDER VIC-20 *** 

10 GOTO 600 

99 REM *** PLAY NOTE ROUTINE *** 

100 PC'KE CB+T+22*0, 1 

110 POKE V,15:POKE S3,NV<7) 

120 FOR DUR=1 TO 100:NEXT DUR 

130 POKE CB+T+£2*0,0 

150 IF F <> 1 THEN RETURN 

160 IF 0 99 THEN 400 

170 NH(C)=T 

180 C=C+1 

190 RETURN 

199 REM *** RECORD NOTE ROUTINE *** 

200 F-0 

210 FOR B=1 TO C-l 
220 T=NH(B) 

230 GOSUB 100 
240 NEXT B 

299 REM *■** READ KEYBOARD ROUTINE *** 

300 T=19:POKE S3. 0 

310 GET N*:IF N$=""THEN 300 
320 IF N*=KB$(T> THEN GOSUB 100 
330 T=T-1 

340 IF T>1 THEN 320 

350 IF N*=CHR$<133> THEN F=1 

360 IF N$=CHR$(134) THEN 200 

370 IF N*=CHR*<135> THEN 400 

380 IF N*=CHR$<136) THEN 500 

390 GOTO 300 

399 REM *** ERASE NOTE ROUTINE *** 

400 FOR X=0 TO 100 
410 NH(X)=0 

420 NEXT X 
430 C=1 
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440 GOTO 300 

499 REM *** CHANGE SCREEN COLOR *** 

500 S=S+1 

510 IF S=19 THEN S=£ 

520 POKE SC,SC(S) 

530 GOTO 300 

599 REM *** INITIALIZE VARIABLES *** 

600 CB=38400:SB=7680:S3=36B76 
610 V=3687B:SC=36B79:X=££:C=1:S=2 
620 DIM NV < X),BC(X),Y(X),SC < X) 

630 DIM CV(X),KB$(X),NH(100),NC(X) 

639 REM *** SCREEN DISPLAY *** 

640 PRINT CHR$(147) 

650 POKE SC,190 
660 FOR X=£ TO 19 

670 READ NC(X),NV(X),BC(X),Y<X) 

680 READ CV(X),KB$(X),SC(X) 

690 NEXT X 

700 FOR CO=£ TO 19 

710 FOR RO=l TO Y(CO)+1 

720 POKE CB+C0+£2*R0,BC(CO) 

730 POKE SB+CO+££*RO,160 
740 POKE CB+CO+££*9,0 
750 POKE SB+CG+22*9,CV(CO) 

760 POKE CB+CO+££*0. 0 
770 POKE SB+CO+££*0,NC ICO) 

780 NEXT RC 
790 NEXT CO 

800 PRINT CHR$(19)CHR$(144) 

810 FOR X=1 TO 11 
820 PRINT:NEXT 

830 PRINT "FI TO BEGIN RECORDING" 

840 PRINT:PRINT 

850 PRINT "F3 TO PLAY BACK" 

860 PRINT:PRINT 

870 PRINT "F5 TO ERASE MEMORY" 

880 PRINT:PRINT 

890 PRINT "F7 TO CHANGE COLORS" 

900 GOTO 300 

1000 DATA 3, 195, 1,6, 23, W, 159, 35, 199,0, 5, 51,3, 173 
1010 DATA 4, 201,7, 6, 5, E, 174, 35, 203, 0, 5, 52, 4, 175 
1020 DATA 5, 207, 2, 6, 18, R, 188, 6, 210, 5, 6, 20, T, 189 
1030 DATA 35, 212, 0, 5, 54, 6, 190, 7, £15, 6, 6, £5, Y, 203 

1040 DATA 35, 217, 0, 5, 55, 7, 204, 1, £19, 4, 6, £1, U, 205 

1050 DATA 35, £21, 0, 5, 56, 8, £18, 2, £23, 3, 6, 9, 1,219 

1060 DATA 3, 225, 1,6, 15, Q, £20, 35, £27, 0, 5, 48, 0, £53 

1070 DATA 4, £28, 7. 6, 16, P, £34, 35, £29, 0, 5, 43,+, 235 
1080 DATA 5, 231,2, 6, 0, 0, £52, 6, £32, 5, 6, 42, *, £50 
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